Dim ADOcon2 As ADODB.Connection = New ADODB.Connection
Dim ADOcat2 As ADOX.Catalog = New ADOX.Catalog
Dim ADOtab2 As ADOX.Table = New ADOX.Table
Dim ADOrec2 As ADODB.Recordset = New ADODB.Recordset
Dim Adofield2 As ADODB.Field
Dim ADOKey2 As ADOX.Key = New ADOX.Key
 
Dim sConn2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data" & _
  "Source=xyz.accdb;"
 
ADOcat2.Create(sConn2)
ADOcon2.Open(sConn2)
ADOcat2.ActiveConnection = ADOcon2
 
'neue tabellenspalte in die Tabelle M (durchläuft eine For-Schleife und ist in 
' der aktuellen, Index M) einfügen --> das klappt und funktioniert auch
ADOcat2.Tables(m).Columns.Append("Datum", ADOX.DataTypeEnum.adDate, 50)
 
'Primärschlüssel löschen --> geht auch
ADOcat2.Tables(m).Keys.Delete(0)
 
ADOKey2.Name = "PrimaryKey"
ADOKey2.Type = KeyTypeEnum.adKeyPrimary
ADOKey2.Columns.Append("Datum")                           'Spalte namens 
' "Datum" 1. Teil des PS
ADOKey2.Columns.Append(ADOcat2.Tables(m).Columns(0).Name) '1.Spalte, Name 
' variabel 2. Teil des PS
 
ADOcat2.Tables(m).Keys.Append(ADOKey2)
ADOcat2.Tables.Append(ADOcat2.Tables(m))