请教如何建立一个Access2000的MDB文件？？

Question

用以下代码可以建立一个access97的mdb，但我把dao单元改为dao2000后运行时就提示出错了,dao360.dll违规什么的，请指点一下啊，我刚开始学。
“”
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,dao97;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  en:dbengine;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  en:=codbengine.Create;en.CreateDatabase('c:\testdb1.mdb',';LANGID=0X0804;CP=936;COUNTRY=0;',dbencrypt);
end;end.

Answer 1

建立数据库:
procedure CreateAccessFile(const FileName:string);
var cAccess:variant;
    ok:Boolean;
begin
  try
    if FileExists(filename) then deletefile(filename);
    CAccess := CreateOleObject('ADOX.Catalog');
    CAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+filename);
    ok:=True;
  except
     ok:=False;
  end;
  if ok then ShowMessage('成功')
  else ShowMessage('失败');
end;
创建Access数据库
可以使用Adoquery组件
SQL 建表命令:='CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int,
    myuser_name AS USER_NAME()
   )'
创建表
CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int,
    myuser_name AS USER_NAME()
    first_name char(5)
   )

Answer 2

说明下，手边没装acess
但以前做过此类东东，放置adotable，或者adoquery控件，设置动态数据库连接，一切正常。

Answer 3

CreateOleObject  在哪个单元文件的？？请说一下好吗？谢谢你了。

Answer 4

那foxpro的自由表那，又该怎么创建那？