for x = 0 to db.tabledefs.count -1
    if db.tabledefs(x).name = "neueTabelle" then
        istDa = True
        Exit for
    endif
next x
 
Dim Table as TableDef, fld as Field
    Set table = db.tabledefs("Tabelle")
    Set Fld = table.CreateField
    Set fld = table.fields("Feld")