Imports System.Data.OleDb
 
Public Class frm_login
    Dim cn As OleDbConnection
    Dim cmd As OleDbCommand
    Dim dr As OleDbDataReader
    Dim user As String
    Dim password As String
    Dim title As String
    Dim vorname As String
    Dim nachname As String
 
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_ok.Click
        Try
            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=C:\Programme\RTA - Ticketverwaltung\rtatic.mdb;")
            'provider to be used when working with access database
            cn.Open()
            cmd = New OleDbCommand("select * from [tbl_login] WHERE user =" & _
              "'txt_user'", cn)
            dr = cmd.ExecuteReader
            While dr.Read()
                user = dr(1)
                MsgBox(user)
                password = dr(2)
                title = dr(3)
                vorname = dr(4)
                nachname = dr(5)
 
                If txt_user.Text <> user And txt_password.Text <> password Then
                    Exit Sub
                Else
                    frm_main.main_menu.Enabled = True
                    frm_main.main_menu.Visible = True
                    frm_main.ts_user.Text = "Willkommen" & " " & title & " " & _
                      nachname & " " & "-" & " " & "Login:" & " " & TimeOfDay
                    Me.Close()
                End If
 
 
            End While
 
 
 
        Catch
        End Try
        dr.Close()
        cn.Close()
 
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_cancel.Click
 
        MdiParent = frm_main
        MdiParent.Close()
 
    End Sub