strsql = "CREATE TABLE tblzettel " & _
                 "(ID COUNTER CONSTRAINT PK_MyID PRIMARY KEY, " & _
                  "Feld1 TEXT(250), Feld2 TEXT(250), Feld3 TEXT(250), " & _
                  "Feld4 TEXT(250), Feld5 TEXT(250), Feld6 Double, Feld7 YESNO)"
CurrentDb.Execute strsql