<code>Public Sub fAppend(tDef As TableDef, ByVal fName As String, _
  ByVal fType As Integer, Optional ByVal fLen As Integer, _
  Optional ByVal fAllowZero As Boolean = True, Optional ByVal fAttr As Variant)
 
  With tDef
    <font color=green>' Feld erstellen</font>
    If fLen > 0 Then
      .Fields.Append .CreateField(fName, fType, fLen)
 
      <font color=green>' AllowZeorLength setzen</font>
      .Fields(fName).AllowZeroLength = fAllowZero
    Else
      .Fields.Append .CreateField(fName, fType)
    End If
 
    <font color=green>' Ggf. Feld-Attribute setzen</font>
    If Not IsMissing(fAttr) Then
      .Fields(fName).Attributes = fAttr
    End If
  End With
End Sub</code>

<code>fAppend Tabelle, "AdressNr", dbLong, , , dbAutoIncrField
fAppend Tabelle, "Anrede", dbText, 20</code>