Dim Verbindung As ADODB.Connection = New ADODB.Connection
Dim Katalog As ADOX.Catalog = New ADOX.Catalog
Dim Tabelle1 As ADOX.Table = New ADOX.Table
Dim sConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data" & _
  "source=H:\...PFAD...\Daten.accdb;"
 
Katalog.Create(sConn)
Verbindung.Open(sConn)
Katalog.ActiveConnection = Verbindung
Tabelle1.ParentCatalog = Katalog
 
Tabelle1.Columns.Append("Abteilung", ADOX.DataTypeEnum.adInteger, 50)
Tabelle1.Columns.Append("Mitarbeiter", ADOX.DataTypeEnum.adInteger, 50)
 
Tabelle1.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "Abteilung")
 
'auf vorhandene Tabelle zugreifen und versuchen den Schlüssel zu erweitern
 
Dim Verbindung2 As ADODB.Connection = New ADODB.Connection
Dim Katalog2 As ADOX.Catalog = New ADOX.Catalog
Dim Tabelle2 As ADOX.Table = New ADOX.Table
Dim Feld As ADODB.Field
Dim Schlüssel2 As ADOX.Key = New ADOX.Key
 
Katalog.Create(sConn)
Verbindung.Open(sConn)
Katalog.ActiveConnection = Verbindung
 
Dim datum As System.DateTime = System.DateTime.Today
 
Katalog2.Tables(2).Columns.Append("Datum", ADOX.DataTypeEnum.adDate, 50)     
'2.Tabelle die Spalte "Datum" zufügen > geht
Katalog2.Tables(2).Keys.Delete(0)                                            
'den aktuellen PS löschen > geht
 
Schlüssel2.Name = "PrimaryKey"
Schlüssel2.Type = KeyTypeEnum.adKeyPrimary
Schlüssel2.Columns.Append("Datum")
Schlüssel2.Columns.Append(Katalog2.Tables(2).Columns(0).Name)                
'soll die erste Spalte der alten Tabelle nehmen > geht NICHT
 
Try
Katalog2.Tables(2).Keys.Append(Schlüssel2)
Katalog2.Tables.Append(Katalog2.Tables(2))
Schlüssel2 = Nothing
Catch ex As Exception
sw2.WriteLine(ex.ToString) 'hier schmeißt er mir die Fehlermeldung [UNTEN 
' gepostet]
End Try
 
' dann füge ich mittels Adorec noch die aktuellen Datumswerte in die Spalte ein 
' > das geht wieder