Dim db As Database
    Dim td As TableDef
    Dim tdcount As Integer
    Dim fld As Field    
 
    Set td = DB.CreateTableDef("MeineTabelle")  
    Set fld = td.CreateField("Index", dbLong)
    fld.Attributes = dbAutoIncrField
    td.Fields.Append fld
 
    .
    ' Noch mehr Felder
    .
 
    Set fld = td.CreateField("aktiv", dbBoolean)
    td.Fields.Append fld
 
    DB.TableDefs.Append td