' Tabelle USER wird eingerichtet
       SQL = "CREATE TABLE USER (PID COUNTER"
       SQL = SQL + ", Username TEXT (50)"
       SQL = SQL + ", Pwd TEXT (25)"
       SQL = SQL + ", Recht TEXT (1)"
       SQL = SQL + ", Datum DATETIME"
       SQL = SQL + ", Uhrzeit DATETIME"
       SQL = SQL + ", Erfasser TEXT (30)"
       SQL = SQL + ", Computer TEXT (30)"
       ' Primärer Index wird auf PID gesetzt ...
       SQL = SQL + ", CONSTRAINT PrimKeyS PRIMARY KEY(PID))"
       DB.Execute SQL