Private Sub vergleich()
    Dim sSql As String
    Set RsBenutzer = New ADODB.Recordset
 
    RsBenutzer.ActiveConnection = conn
    RsBenutzer.CursorLocation = adUseClient
    RsBenutzer.CursorType = adOpenDynamic
    RsBenutzer.LockType = adLockPessimistic
 
    RsBenutzer.Open "Select * From tblBenutzer WHERE (Benutzer = '" & _
      Me.txtBenutzerName.Text & "') AND (Passwort = '" & Me.txtPasswort.Text & _
      "')"
    If RsBenutzer.RecordCount = 1 Then
        MsgBox "Benutzer gefunden"
    Else
        MsgBox "Benutzer nicht vorhanden oder PW falsch"
    End If
End Sub

    RsBenutzer.Open "Select * From tblBenutzer WHERE (Benutzer = '" & _
      Me.txtBenutzerName.Text & "') AND (Passwort = '" & Me.txtPasswort.Text & _
      "')"