Dim TabDef As New TableDef
    Dim Feld As New Field
 
    TabDef.Name = "DVDs"
 
    'Datenfeld #1
    Feld.Name = "Titel"
    Feld.Type = dbText
    Feld.Attributes = dbAutoIncrField
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #2
    Feld.Name = "Bildformat"
    Feld.Type = dbLong
    Feld.Size = 20
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #3
    Feld.Name = "Genre"
    Feld.Type = dbText
    Feld.Size = 20
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #4
    Feld.Name = "Discs"
    Feld.Type = dbInteger
    Feld.Size = 20
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld  #5
    Feld.Name = "Dauer (in Min.)"
    Feld.Type = dbInteger
    Feld.Size = 20
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #6
    Feld.Name = "FSK"
    Feld.Type = dbInteger
    Feld.Size = 20
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #7
    Feld.Name = "Notiz"
    Feld.Type = dbMemo
    Feld.Size = 20
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    DB.TableDefs.Append TabDef
    DB.Close
 
    Set TabDef = Nothing
    Set DB = Nothing