TKSoft-Online

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!