Private Sub TabelleErstellen()
  Dim Tabelle As New TableDef
  Dim Feld As New Field
 
  ' Name der Datenbank-Tabelle
  Tabelle.Name = "tblEinzelposten"
 
  'Datenfeld #1
  Feld.Name = "ID"
  Feld.Type = dbLong
  Feld.Attributes = dbAutoIncrField
  Tabelle.Fields.Append Feld
  Set Feld = Nothing
 
  'Datenfeld #2
  Feld.Name = "Monate"
  Feld.Type = dbText
  Feld.Size = 20
  Feld.AllowZeroLength = True
  Tabelle.Fields.Append Feld
  Set Feld = Nothing
 
  'Datenfeld #3
  Feld.Name = "Betrag"
  Feld.Type = dbText
  Feld.Size = 50
  Feld.AllowZeroLength = True
  Tabelle.Fields.Append Feld
  Set Feld = Nothing
 
Db.TableDefs.Append Tabelle
  Set Tabelle = Nothing
 
End Sub