Include the database version information with the JetOLEDB:Engine Type property

 
' 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 & _
    "Jet OLEDB:Encrypt Database=True;" & _
    "Jet OLEDB:Engine Type=1;"

   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

1.	connect to JET
2.	Read table schema
3.	Connection String to Access database
4.	Use Recordset.Support to check the supported features
5.	Create new database
6.	Open a worksheet through OLEDB
7.	Opening a Microsoft Jet Database in Read/Write Mode
8.	Sub addJetSqlUser()
9.	A Simple Connection Example

Include the database version information with the JetOLEDB:Engine Type property : Microsoft Jet « Access « VBA / Excel / Access / Word

Related examples in the same category