'创建数据库
'参数：strDBPath 字符串型 数据库文件的完整路径
Sub CreateDataBase(strDBPath)
Dim catObj
Set catObj = CreateObject("ADOX.Catalog")
catObj.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & strDBPath
Set catObj = Nothing
End Sub
'关于catObj.Create的参数说明，这一串字符串，其中Provider表示数据库的版本，百度搜出来的代码大多数都是Microsoft.Jet.OLEDB.4.0，
'反正我还知道Microsoft.ACE.OLEDB.12.0是Office 2010 Access的数据库，其他版本我就不清楚了。
'Data Source 很明显，中文翻译过来就是 数据源，就是数据库的路径了。
'例子如下：
CreateDataBase "C:\Test.mdb"