如何使用代码动态建立和删除数据库啊？
---------------------------------------------------------------
创建一个数据库：
首先在项目中添加引用->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语句。
删除已经存在的数据库，和删除一个文件没什么两样
关闭数据库后用 kill 或者用fso ，随便