cpers.RegisterPers(Pers_Name, Pers_Passwort, "Wartung", 11) ' 11 ist die 
' kennziffer für techniker
 
Public Class cpers
    Public Shared Function RegisterPers(ByVal Name as string, ByVal Passwort as _
      string, Optional ByVal Modul as string = "", Optional ByVal ModRights as _
      integer) as Boolean
 
    Dim s as string = _
    "SELECT " & _
        "LfdNr_Pers, " & _
        "Pers_Name " & _
        IIF(Modul = "", "", ", Pers_Mod_" & Modul) & _
    "FROM " & _
        "Personen"
        ...