Function Datenfelderzeugen(Feldname As String, _
  Feldtyp As <font color=red>Integer</font>, _
  Tabelle As String)
 
  <font color=red>Dim fld As New Field</font>
 
  <font color=green>' Hier werden die Tabellenfelder erzeugt. Der Feldname und 
  ' -typ wird 
  ' der Funktion übergeben</font>
  With db.TableDefs(Tabelle).Fields 
    fld.Name = Feldname 
    fld.Type = Feldtyp 
    If Feldtyp = dbText Then 
      fld.Size = 100 
      fld.AllowZeroLength = True 
    <font color=red>End If</font>
 
    <font color=green>' Feld hinzufügen </font>
    .Append fld 
    Set fld = Nothing 
  End With 
End Function

Datenfelderzeugen <font color=red>"</font>Vorname<font color=red>"</font>, _
  dbText, <font color=red>"</font>Adressen<font color=red>"</font>