begin
//动态建立数据库。(uses ComObj).
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/WINDOWS/Temp/db.mdb');
path := ExtractFilePath('C:/WINDOWS/Temp/'); //文件路径
ADOConnection1.Connected := False;
try
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
path + 'db.mdb' + ';Persist Security Info=False';
ADOConnection1.Connected := true;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('create table tb ( ID autoincrement not null,CX OLEOBJECT not null)'); //建ID自增字段，CX OLE字段
adoquery1.ExecSQL;
except
MessageBox(GetActiveWindow(), '系统错误!', '警告', MB_OK + MB_ICONWARNING);
application.Terminate;
end;// 数据库建立结束。
