怎样用编程的方法,通过ODBC创建ACCESS 2000 的数据库文件?

Question

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;
你到文档中心，我记得有一篇是关于创建Access的