用ADO动态建立ACCESS数据库

1. /----用ADO动态建立ACCESS数据库，使用到 Comobj单元。20080627
2. procedure ADOCreateMDB(const MDBName:string);
3. var
4.   MDB:OleVariant;
5. begin
6.   MDB:=CreateOleObject('ADOX.Catalog');
7.   MDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;'+
8.     'Data Source='+MDBName);
9.   MDB:=Unassigned;
10. end;
12. end.