Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a New Microsoft Access Database Using ADO

' you must make sure that a reference to ' Microsoft ADO Ext. 2.5 for DDL and Security ' Object Library is set in the References dialog box Sub CreateI_NewDatabase()    Dim cat As ADOX.Catalog    Dim strDb As String    Set cat = New ADOX.Catalog    strDb = "C:\NewAccessDb.mdb"    On Error GoTo ErrorHandler    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=" & strDb    MsgBox "The database was created (" & strDb & ")."    Set cat = Nothing    Exit Sub ErrorHandler:    If Err.Number = -2147217897 Then       Kill strDb       Resume 0    Else       MsgBox Err.Number & ": " & Err.Description    End If End Sub