RE:Como Pasar valores de una Tabla a un Textbox
Tocayo:
Te mando este ejemplo de búsqueda de un alumno para ver si lo que necesitas es algo parecido
Dim t As String
Dim Ds As New DataSet()
Dim Fila As DataRow
t = "select nombre, direccion, localidad from alumnos where dni = '" + Textcodigo.Text + "'"
dim comando As New OleDb.OleDbDataAdapter(t, CN)
comando.Fill(Ds)
If Ds.Tables(0).Rows.Count > 0 Then
Fila = Ds.Tables(0).Rows(0)
TextNombre.Text() = Fila.Item("Nombre")
TextDire.Text() = Fila.Item("direccion")
TextLoca.Text() = Fila.Item("localidad")
End if
Si quieres recorrer todas las filas hay que usar for each para recorrer