Dim Com As New OleDb.OleDbCommand
    Dim Con As New OleDb.OleDbConnection
    Dim Read As OleDb.OleDbDataReader

Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=User.mdb;Jet OLEDB:database;Mode=ReadWrite;Persist Security" & _
  "Info=false"
        Com.Connection = Con
        Com.CommandType = CommandType.Text
        Com.CommandText = "Select * From Tab2 Where Benutzer=? and HashUser=?" & _
          "and HashPw=?"

'Admin
        Com.Parameters.Add("Benutzer", Data.OleDb.OleDbType.Variant)
        Com.Parameters.Add("HashUser", Data.OleDb.OleDbType.Variant)
        Com.Parameters.Add("HashPw", Data.OleDb.OleDbType.Variant)
 
        Com.Parameters("Benutzer").Value = TextBox1.Text
        Com.Parameters("HashUser").Value = Label6.Text 'TextBox1.Text
        Com.Parameters("HashPw").Value = Label7.Text 'TextBox2.Text
 
        'Datenbank verbindung öffnen
        Con.Open()
 
        ' Lesen der information von der Datenbank
        Read = Com.ExecuteReader
        'Prüfung
        ar()
        ' Verbindung zur Datenbank schließen
        Con.Close()

VB@rchiv its the Best