Office: Fehlermeldung für mich nicht nachvollziehbar

Hallo,

ich habe bei folgender Tabelle ein Anmeldeformular erstellt. Bei diesem gebe ich Benutzername und Passwort.

Es ist mit nichts gebunden, daher verstehe ich nicht, warum ich bei folgender Routine, wo ich noch einen Null Fehler angezeigt bekomme?

Er zegt mir den Laufzeitfehler 94 an, dass Verarbeitung von Null nicht erlaubt ist

Code:

Private Sub cmdAnmelden_Click()
    If AnmeldungPruefen(Me!txtBenutzername, Me!txtKennwort) = True Then
        MsgBox "Anmeldung erfolgreich."
    Else
        MsgBox "Anmeldung nicht erfolgreich."
    End If
End Sub

Public Function AnmeldungPruefen(strBenutzername As String, strKennwort As String)
    Dim objCrypt As clsCrypt
    Dim strVerschluesselt As String
    Set objCrypt = New clsCrypt</code>
    strVerschluesselt = objCrypt.GetSHA1(strKennwort)
    If Not IsNull(DLookup("BenutzerID", "tblBenutzer", "Benutzername = ''" & strBenutzername & "'' AND Kennwort = ''" & strVerschluesselt & "''")) Then
        AnmeldungPruefen = True
    End If
End Function

 

Hat sich erledigt Fehler gefunden