Dim objVerbindung As OleDbConnection
        Dim objBefehl As OleDbCommand
        Dim objdaten As OleDbDataReader
        Dim sqltext As String
 
        Dim datenbenutzer As String
        Dim datenpasswort As String
 
        'sqltext = "select * from usertabelle"
        sqltext = "select * from userTabelle where benutzername = " & _
          TextBox1.Text & ""
 
        objVerbindung = New OleDbConnection("Provider=Microsoft.JEt.oledb.4.0;" & _
          "data source= E:\ASP_net\ASP_Daten_aus_mdb\user.mdb;")
        objVerbindung.Open()
        objBefehl = New OleDbCommand(sqltext, objVerbindung)
        objdaten = objBefehl.ExecuteReader
        objdaten.Read()
 
        datenbenutzer = objdaten.Item("benutzername")
        datenpasswort = objdaten.Item("passwort")
 
        TextBox2.Text = datenbenutzer
        TextBox3.Text = datenpasswort
 
        objVerbindung.Close()
        objVerbindung = Nothing
        objdaten.Close()
        objdaten = Nothing
        objBefehl = Nothing