' =======================================
' Anmeldung prüfen
' =======================================
 
Private Sub AnmeldungPrüfen()
    AnmeldeStatus = "Exit"
    If sevUser = "" Or sevKennwort = "" Then
       MsgBox "Anmeldung nicht erfolgreich - Abbruch"
       Unload Me
       Exit Sub
    End If
    FileClose
 
    CryptUser = sevUser & sevUser
    ' eingegebenes Kennwort verschlüsseln
    CryptPassword = VernamCode(sevKennwort, CryptUser)
 
    ' Benutzer lesen
    sSQL = "SELECT COUNT(UserName) tblUser WHERE UserName = '" & sevUser & _
       "'" AND UserPW = '" & CryptPassword & "'"
 
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenForwardOnly, adLockOptimistic
    oRsOpen = True
 
    ' Abbruch, wenn falscher Name eingegeben wurde
    If oRs.RecordCount = 0 Then
       MsgBox "Anmeldung nicht erfolgreich - Abbruch"
       FileClose
       PgmAktion = "Exit"
       Unload Me
       Exit Sub
    Else
       AnmeldeStatus = "OK"
    End If
End Sub