strSQL = "CREATE TABLE Unternehmen ([FirmenID :] AUTOINCREMENT, [SuchsatzID" & _
      ":] INTEGER, [Firmenname :] TEXT"
    'Abfrage abschliessen und Tabelle jetzt erstellen
    strSQL = strSQL & ");"
    dbsSearcher.Execute strSQL, dbConsistent + dbFailOnError
    strSQL = "CREATE INDEX PrimaryKey ON Unternehmen ([FirmenID :]) WITH" & _
      "PRIMARY;"
    dbsSearcher.Execute strSQL, dbConsistent + dbFailOnError