<code>Dim Db As Database
Dim Feld As New Field
 
<font color=green>' Datenbank exklusiv öffnen</font>
Set Db = Workspaces(0).OpenDatabase("DeineMDB.mdb", True, False)
 
<font color=green>' Feld-Definition (Beispiel)</font>
With Feld
  .Name = "NeuesFeld"
  .Type = dbText
  .AllowZeroLength = True
  .Size = 20
End With
 
<font color=green>' Feld hinufügen</font>
Db.TableDefs("DeineTabelle").Fields.Append Feld
 
<font color=green>' Datenbank wieder schliessen</font>
Db.Close
Set Db = Nothing</code>