|
' 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
|