VBS CREATE DATABASE

' Create Database
' Parameter: Strdbpath full path to the string database file
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 
' About catobj.create parameter description, this string, where provider represents the database version, Baidu search out the code is mostly microsoft.jet.oledb.4.0,
' Anyway I know microsoft.ace.oledb.12.0 is a database of Office access, and I'm not sure about the other versions.
' The data source is obviously, the Chinese translation is the DataSource, is the path of the database.
' Examples are as follows:
CreateDatabase "C:\Test.mdb"

VBS CREATE DATABASE