Sub NewCreateTableADOX(strNewTabName As String)
'*******************************************
'Name:      NewCreateTable (Sub)
'Purpose:   Erstellt eine neue Tabelle in der aktuellen Datenbank mittels ADOX
'Author:    Thomas Keßler
'Date:      Dezember 01, 2002, 10:00:15
'Inputs:    NewTabName = Name der neuen Tabelle,
'Output:
'*******************************************
On Error GoTo Err_NewTable
Dim cn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Set cn = CurrentProject.Connection
Set cat.ActiveConnection = cn
Set tbl = CreateObject("ADOX.Table")
    tbl.Name = strNewTabName
    cat.Tables.Append tbl
    
Set cat = Nothing
cn.Close
Err_NewTable_Exit:
    Exit Sub
Err_NewTable:
    Dim strErrString As String
    strErrString = "Error Information..." & vbCrLf
    strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
    strErrString = strErrString & "Description: " & Err.Description & vbCrLf
    MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: NewCreateTableADOX"
    Resume Err_NewTable_Exit
End Sub

 Im Gegensatz zu DAO ist es mit ADO(X) auch möglich, eine Tabelle ohne ein Feld zu erstellen!

Call NewCreateTableADOX("tbl_NewTest")

• CurrentDb.Excute mit ADO
• Arbeiten mit EXIF-Tags
• Runden von Uhrzeiten
• Berechnen von Zeiträumen als Abfragekriterium
• Übersicht der Fehlermeldungen von MS-Access