Set Stammdatenbank = Workspaces(0).CreateDatabase(StDBdatei, dbLangGeneral, _
  dbEncrypt + dbVersion30)
 
        Tabdef.Name = "Stammdaten"
 
        Feld.Name = "ID"
        Feld.Type = dbLong
        Feld.Attributes = dbAutoIncrField
        Tabdef.Fields.Append Feld
        Set Feld = Nothing
 
 'Hier kommen jetzt noch diverse Variablendeklarationen
 'Die aber leider zu lang sind, um sie hier reinstellen zu können..
 
        Feld.Name = "Handzeichen"
        Feld.Type = dbText
        Feld.AllowZeroLength = True
        Tabdef.Fields.Append Feld
        Set Feld = Nothing
 
        Stammdatenbank.TableDefs.Append Tabdef
        Stammdatenbank.Close
 
        Set Tabdef = Nothing
        Set Stammdatenbank = Nothing