Dim oCat As ADOX.Catalog
 
Set oCat = New ADOX.Catalog
oCat.ActiveConnection = oConn
 
With oCat.Table("MeineTabelle")
  .Columns.Append "Feld1", adWChar, 60
  With .Columns("Feld1")
    .Properties("Description") = "Feld2"
    .Properties("Jet OLEDB:Allow Zero Length") = True
    .Properties("Nullable") = True
  End With
End With
 
' Objekte zerstören
Set oCat = Nothing

____________________________________________
Nur die Dummen wissen alles selbst am besten.