Private Sub Button_Login_Click(sender As Object, e As EventArgs) Handles _
   Button_Login.Click
        If String.IsNullOrEmpty(Login_BenutzernameTextBox.Text) Or _
        String.IsNullOrEmpty(Passwort_LoginTextBox.Text) Then Return
        Dim conect As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim stmt As String = Nothing
        Dim User As String = Nothing
        Dim BN As Integer = 0
 
        Dim Admin As Integer = 0
        conect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
          "Source=" & My.Application.Info.DirectoryPath.ToString() & _
          "\BackUp\BenutzerDB.accdb"
        conect.Open()
        Try
            'MsgBox("Verbindung zur Datenbank erfolgreich")
            Dim stat As String = "SELECT * FROM Usertab where Benutzername='" & _
              Login_BenutzernameTextBox.Text & "' AND Passwort = '" & _
              Passwort_LoginTextBox.Text & "'"
            cmd = New OleDbCommand(stat, conect)
 
            Dim dr As OleDbDataReader = cmd.ExecuteReader()
 
            If dr.Read Then
                User = dr("Benutzername").ToString
                BN = dr("ID").ToString
                Admin = dr("Benutzertyp").ToString
                tbBO.Text = BN
                ' hier die Variabeln an die Haubtform (Programm) übergeben
                frmMain.TSL_Benutzer.Text = User
                frmMain.TSLBN.Text = BN
                If Admin = 1 Then
                    frmMain.TSL_Admin.Text = "Ja"
                Else
                    frmMain.TSL_Admin.Text = "Nein"
                End If
                '--------------------------------------------------------------
                ' -----------------
                ' hier die Anmeldung dokumentieren 
                stmt = "UPDATE Usertab SET Online='" & 1 & "',ONOFF='" & Now & _
                  "' WHERE ID=" & BN & ""
                cmd = New OleDbCommand(stmt, conect)
                cmd.ExecuteNonQuery()
                ' Loginform schließen
                Me.Hide()
                ' Hauptform mit Benutzeranmeldung anzeigen
                frmMain.Show()
            ElseIf Passwort_LoginTextBox.Tag Then
                MessageBox.Show("Sie haben sich erfolgreich angemeldet", _
                  "Willkommen", MessageBoxButtons.OK, _
                  MessageBoxIcon.Information)
                Passwort_LoginTextBox.Clear()
            Else
                ErrorCount = ErrorCount + 1
                MessageBox.Show("Passwort und oder Benutzername falsch", _
                  "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
                Passwort_LoginTextBox.Clear()
                Passwort_LoginTextBox.Focus()
            End If
 
            If (ErrorCount = 1) Then
                lblNotify.Text = "Sie haben noch 2 Versuche"
 
            ElseIf (ErrorCount = 2) Then
                lblNotify.Text = "Sie haben noch 1 Versuch"
            ElseIf (ErrorCount = 3) Then
                MessageBox.Show("Sie haben die maximale Anzahl an" & _
                  "Anmeldeversuchen überschritten. Das System wird jetzt" & _
                  "beendet. ", " Error! ", MessageBoxButtons.OK, _
                  MessageBoxIcon.Error)
                Application.Exit()
            End If
 
        Catch ex As Exception
            MessageBox.Show("Verbindung zur Datenbank konnte nicht hergestellt" & _
              "werden...", "Datenbankverbindungsfehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try
    End Sub