Sub CreateTableInNewDb()
Dim cat As ADOX.Catalog
Dim conn As ADODB.Connection
Dim strDb As String
Dim strTable As String
Dim strConnect As String
On Error GoTo ErrorHandler
Set cat = New ADOX.Catalog
strDb = CurrentProject.Path & "\mydb.mdb"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb
cat.Create strConnect
Set conn = cat.ActiveConnection
conn.Execute "CREATE TABLE myTable(SchoolId AUTOINCREMENT(100, 5)," & _
"SchoolName CHAR,City Char (25), District Char (35),YearEstablished Date);"
ExitHere:
Set cat = Nothing
Set conn = Nothing
Exit Sub
ErrorHandler:
If Err.Number = -2147217897 Then
Kill strDb
Resume 0
Else
Debug.Print Err.Number & ": " & Err.Description
GoTo ExitHere
End If
End Sub