Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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