Private Sub CreateField()
Dim vCat As ADOX.Catalog
Dim vTable As ADOX.Table
Dim vCol As ADOX.Column
 
Set vCat = CreateObject("ADOX.Catalog")
vCat.ActiveConnection = con                   'con ist die bereits geöffnete 
' verbindung
Set vTable = vCat.Tables("relAuftragMeldung")
Set vCol = CreateObject("ADOX.Column")
 
'feld definieren
With vCol
    .Name = "ZustGeladenKnz"
    .Type = adUnsignedTinyInt
    Set .ParentCatalog = vCat
    .Properties("Default") = 0
    .Properties("Jet OLEDB:Allow Zero Length") = True
    .Properties("Nullable") = True
End With
 
'feld anfügen
vTable.Columns.Append vCol
 
' Objekte zerstören
Set vCat = Nothing
Set vTable = Nothing
Set vCol = Nothing
End Sub

____________________________________________
Nur die Dummen wissen alles selbst am besten.