Set tbl.ParentCatalog = oCat

Dim cat as ADOX.Catalog
Dim tbl as ADOX.Table
 
strPath = "c:\Verzeichnis\.....\Meine.mdb"
strConn = "Provider=Microsoft.Jet.Oledb.4.0; &_
          "Data Source=" & strPath & ";"
 
 
Set cat = New ADOX.catalog     'Datenbank initialisieren
cat.create strConn                       'Datenbank öffnen
Set tbl = New ADOX.Table          'Tabelle initialisieren
Set tbl.ParentCatalog = cat        'Tabelle als Objekt der Datenbank cat 
' festlegen
 
tbl.Name = "meineTabelle"       'name der tabelle festlegen
 
'Spalten hinzufügen"
tbl.Columns.Append "ID", adInteger         'Spalte "ID" anfügen, Feld auf _
  Integer festlegen
tbl.Columns("ID").Properties("AutoIncremment" = True    'Eigenschaft setzen
 
tbl.Columns.Append "ForID", adInteger     'Nächste Spalte
tbl.Columns("ForID").Properties("Default") = 0  'Standardwert = 0
'......                usw.