Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Create new database

Sub CreateDatabase()     Dim cat As New ADOX.Catalog     cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=C:\mydb.mdb;" End Sub