Creating a New Microsoft Access Database Using ADO : Access ADO « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Access ADO

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

 

Related examples in the same category