用ADO能不能创建Access数据库？
---------------------------------------------------------------
创建一个数据库：
首先在项目中添加引用->Microsoft ADO Ext. 2.x for DLL and Security
然后看下面的代码，创建一个数据库：
Public Function CreateDatabase(DBPath As String) As Boolean
On Error Resume Next
Dim oCatalog As New ADOX.Catalog
oCatalog.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
CreateDatabase = Err.Number = 0
End Function
调用：CreateDatabase ("c:\1.mdb")
创建表可以用SQL语句。