Dim TabDef As New TableDef
Dim Feld As New Field
 
TabDef.Name = "Adressen"
 
'Datenfeld #1
Feld.Name = "AdressNr"
Feld.Type = dbLong
Feld.Attributes = dbAutoIncrField
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #2
Feld.Name = "Anrede"
Feld.Type = dbText
Feld.Size = 20
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #3
Feld.Name = "Name"
Feld.Type = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #4
Feld.Name = "Strasse"
Feld.Type = dbText
Feld.Size = 35
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #5
Feld.Name = "PLZ"
Feld.Type = dbText
Feld.Size = 8
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #6
Feld.Name = "Ort"
Feld.Type = dbText
Feld.Size = 40
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #7
Feld.Name = "Telefon"
Feld.Type = dbText
Feld.Size = 25
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
'Datenfeld #8
Feld.Name = "EMail"
Feld.Type = dbText
Feld.Size = 50
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
 
Db.TableDefs.Append TabDef
Db.Close
 
Set TabDef = Nothing
Set Db = Nothing

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!