创建ACCESS 2000数据库

  通过ODBC创建ACCESS   2000   的数据库文件：  
  uses   DAO97;  
  function   CreateAccessDB(FileName:String;bOffice97:boolean=true):boolean;  
  var  
      CreateAccess:OleVariant;  
      CreateMSG:string;  
  begin  
      Result:=false;  
      if   not   FileExists(FileName)   then  
      begin  
          CreateAccess:=CreateOleObject('ADOX.Catalog');  
          if   not   bOffice97   then  
              CreateMSG:='Provider=Microsoft.Jet.OLEDB.4.0;'  
          else  
              CreateMSG:='Provider=Microsoft.Jet.OLEDB.3.51;';  
          CreateMSG:=CreateMSG+'Data   Source='+FileName;  
          try  
              CreateAccess.Create(CreateMSG);  
              Result:=true;  
          except  
              Result:=false;  
          end;  
      end;  
  end;