Private Sub butAuslesen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butAuslesen.Click
        Dim strConnectionString, strAccess As String
        strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=C:\VB_Datenbanken\Datenbank.mdb"
 
        strAccess = "SELECT * from t_Mitglieder"
 
        Dim connAccess As New OleDb.OleDbConnection(strConnectionString)
        Dim cmdAccess As New OleDb.OleDbCommand(strAccess, connAccess)
        Dim drAccess As OleDb.OleDbDataReader
 
        connAccess.Open()
        drAccess = cmdAccess.ExecuteReader()
 
        drAccess.Read()
        txtVorname.Text = drAccess.Item("tMitVorname")
        txtNachname.Text = drAccess.Item("tMitNachname")
        txtStraße.Text = drAccess.Item("tMitStraße")
        txtPLZ.Text = drAccess.Item("tMitPLZ")
        txtOrt.Text = drAccess.Item("tMitOrt")
 
        drAccess.Close()
        connAccess.Close()
    End Sub

 drAccess.Read()