Devo premettere che lavoro con VB2003 quindi non so se qualcosa è cambiato, credo di no comunque..

codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objconn As OleDbConnection
        Dim stringaconn As String
        Dim stringasql As String
        Dim objcomm As OleDbCommand
        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
        stringaconn = stringaconn & "c:\testPersone.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
        stringasql = "SELECT Nome FROM Persone WHERE ID = '1'"
        objcomm = New OleDbCommand(stringasql, objconn)
        Dim drPersona as DataReader
        Try
            drPersona = objcomm.ExecuteReader()
            If drPersona.HasRow=True Then
                MsgBox("Trovato")
                drPersona.Read
                TNome.Text= drPersona("Nome").tostring
                objconn.Close()                 
            End If
        Catch es As Exception
            MsgBox("Errore: il campo ID è vuoto")
            objconn.Close()
        End Try

    End Sub
naturalmente è un esempio... studiati l'uso del datareader e del command.executereader..