'Prüfen, ob das Passwort identisch mit der DB ist, und ob das
'neue Passwort nicht leer ist und ob die neuen Passwörter identisch
'sind.
If (txtKennwort.Text = lblDBPasswort.Caption) And IsNull(txtPasswortNeu1.Text) _
  Or IsNull(txtPasswortNeu2.Text) Then
    MsgBox "Zugriff erlaubt!", vbInformation, "Passwort korrekt!"
    Unload frmPasswort
    frmJagd.Show vbModal
    ElseIf (txtKennwort.Text = lblDBPasswort.Caption) And (txtPasswortNeu1.Text _
      = txtPasswortNeu2.Text) And (Not IsNull(txtPasswortNeu2.Text)) Then
        MsgBox "Zugriff erlaubt!" + vbCrLf + "Beim nächsten Mal mit neuem" & _
        "Passwort!", vbInformation, "Passwort korrekt!"
        rs.MoveFirst
        rs!Kennwort = txtPasswortNeu2.Text
        rs.Update
        Unload frmPasswort
        frmJagd.Show vbModal
    Else
        MsgBox "Falsches Passwort!" + vbCrLf + "oder" + vbCrLf + "Neue" & _
          "Passwörter sind nicht identisch!", vbCritical, "Falsches Passwort!"
        Unload frmPasswort
        Unload frmJagd
End If