Dim Benutzername
Dim Passwort
Dim Startmarke
 
    Startmarke = ADOrs.Bookmark
    ADOrs.Find criteria:=txtBenutzername.Text, start:=Startmarke
 
    If ADOrs.EOF = False Then
       Benutzername = Rs!Benutzername
       Passwort = Rs!Passwort
    Else
       Beep 'MsgBox ("Benutzername oder Passwort nicht gefunden")
    End If
    ADOrs.Close
    ADOcn.Close
 
    If txtBenutzername.Text = Benutzername And txtPasswort.Text = Passwort Then
      frmMain.Show
      frmMain.WindowState = 2
    Else
      MsgBox ("Benutzername oder Passwort falsch")
    End If