Private Sub FieldErzeugen(sTable As String, sField As String, _
    sSize As Integer)
  Dim Db As Database
  Dim Feld As DAO.Field
  Dim Idx As Index
  Dim Def As TableDef
 
  ' Datenbank exklusiv öffnen
  Set Db = DBEngine.OpenDatabase(DB_Name, True, False, _
     ";pwd=" & DB_PW)
 
  Set Def = Db.CreateTableDef(sTable)
 
    ' Feld "Ausgeliehen und Bestellt" definieren
    Set Feld = New DAO.Field
    Feld.Name = sField
    Feld.Type = dbText
    Feld.Size = sSize
    Feld.AllowZeroLength = True
    Def.Fields.Append Feld
    Set Feld = Nothing
 
    ' Index erstellen
    Set Idx = New Index
    Idx.Name = sField ' kann auch ein anderer Name sein
    Idx.Fields = sField
    Idx.Primary = False ' primärer Index - nein
    Idx.Unique = False  ' eindeutig - nein
    Def.Indexes.Append Idx
 
 
  ' Datenbank schliessen und zerstören
  Db.Close
  Set Db = Nothing
 
  ' Datenbank zur Bearbeitung wieder öffnen
  DB_Oeffnen
End Sub