Private Sub cmdOK_Click()
On Error GoTo Fehler
 
SQL = "SELECT * FROM Passwort WHERE " & _
  "Benutzername = '" & strText1 & "' And " & _
  "Passwort = '" & strText2 & "'"
Set Rst = Db.OpenRecordset(SQL)
If Rst.RecordCount > 0 Then
Unload Me
frmMain.Show
Else
MsgBox "Bitte geben Sie die Benutzerdaten erneut ein!", vbOKOnly + _
  vbExclamation, Title:="Vinux SnapShot Anmeldung"
End If
 
Exit Sub
Fehler:
End Sub