Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
 
Set DB = DBEngine.OpenDatabase("DeineMDB.mdb")
 
SQL = "SELECT * FROM Benutzer WHERE " & _
  "Username = '" & strUsername & "' And " & _
  "Passwort = '" & strPassword & "'"
 
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  <font color=green>' Gefunden!</font>
Else
  MsgBox "Ungülitger Username oder ungültiges Passwort!"
End If
Rs.Close
DB.Close
Set DB = Nothing