用SQL语句能创建ACCESS数据库吗？怎么做呢？拜托啦！！！

Question

Dim dtTable As TableDef' Create the Database
' # Add password: insert '& ";pwd=NewPassword" after dbLangGeneral
' # Encrypt: insert '+ dbEncrypt' after dbVersion30
Set dbData = DBEngine.CreateDatabase(sFilename, dbLangGeneral, dbVersion30)

Answer 1

用纯SQL语句来建Access数据库是不可能的，但可以用DBengine的CreateDatabase来建。

Answer 2

'用ADO来建
'reference Microsoft ADO Extensions for DDL and Security
dim cat as new adox.catalog
cat.create "provider=microsoft.jet.oledb.4.0;data source=c:\new.mdb"