Si no te quedo muy claro lo anterior, te pongo un ejemplo completo:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form3
'CONEXION
Private SqlConnection1 As SqlConnection
'ADAPTADOR DE DATOS
Private SqlDataAdapter1 As SqlDataAdapter
Private SqlDataAdapter2 As SqlDataAdapter
Private SqlDataAdapter3 As SqlDataAdapter
'COMANDOS
Private SqlSelectCommand1 As SqlCommand
Private SqlSelectCommand2 As SqlCommand
Private SqlSelectCommand3 As SqlCommand
'CONJUNTO DE DATOS
Private Dataset1 As DataSet
Private Dataset2 As DataSet
Private Dataset3 As DataSet
'DATABINDING
Dim AdministradorBaseDeEnlaces_Empresa As BindingManagerBase
Dim Bind As Binding
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CREAR CONEXIÓN CON LA BASE DE DATOS
SqlConnection1 = New SqlConnection
SqlConnection1.ConnectionString = "Data Source=EDUARDO-PC; Initial Catalog=residencias; Integrated Security=True"
'CREAR EL DATA ADAPTER Y LAS ÓRDENES ASOCIADAS
'ESTABLECIENDO LA CONEXIÓN CON LA FUENTE DE DATOS
'TABLA EMPRESA
SqlDataAdapter1 = New SqlDataAdapter
SqlSelectCommand1 = New SqlCommand
SqlDataAdapter1.SelectCommand = SqlSelectCommand1
SqlSelectCommand1.Connection = SqlConnection1
'TABLA ALUMNO
SqlDataAdapter2 = New SqlDataAdapter
SqlSelectCommand2 = New SqlCommand
SqlDataAdapter2.SelectCommand = SqlSelectCommand2
SqlSelectCommand2.Connection = SqlConnection1
'TABLA MAESTROS
SqlDataAdapter3 = New SqlDataAdapter
SqlSelectCommand3 = New SqlCommand
SqlDataAdapter3.SelectCommand = SqlSelectCommand3
SqlSelectCommand3.Connection = SqlConnection1
'CREAR EL DATASET DONDE SE VOLCARÁN LOS DATOS
Dataset1 = New DataSet
Dataset2 = New DataSet
Dataset3 = New DataSet
'SENTENCIA SELECT A EJECUTAR
SqlSelectCommand1.CommandText = "Select * from empresa"
SqlSelectCommand2.CommandText = "Select * from alumno"
SqlSelectCommand3.CommandText = "Select * from profesor"
'ABRIR LA CONEXIÓN
SqlConnection1.Open()
'RELLENAR EL DATASET CON EL CONTENIDO OBTENIDO POR EL SELECT
SqlDataAdapter1.Fill(Dataset1, "empresa")
SqlDataAdapter2.Fill(Dataset2, "alumno")
SqlDataAdapter3.Fill(Dataset3, "profesor")
'CERRAR LA CONEXIÓN
SqlConnection1.Close()
'LIGAR TEXT BOX CON LA TABLA
'TABLA EMPRESA
Bind = New Binding("Text", Dataset1, "empresa.Cve_Empresa")
Me.TextBox8.DataBindings.Add(Bind)
Bind = Nothing
Bind = New Binding("Text", Dataset1, "empresa.Nombre")
Me.TextBox7.DataBindings.Add(Bind)
Bind = Nothing
Bind = New Binding("Text", Dataset1, "empresa.Giro")
Me.TextBox6.DataBindings.Add(Bind)
Bind = Nothing
Bind = New Binding("Text", Dataset1, "empresa.Telefono")
Me.TextBox5.DataBindings.Add(Bind)
Bind = Nothing
Bind = New Binding("Text", Dataset1, "empresa.Direccion")
Me.TextBox9.DataBindings.Add(Bind)
Bind = Nothing
AdministradorBaseDeEnlaces_Empresa = Me.BindingContext(Dataset1, "empresa")
'TABLA ALUMNO
'TABLA PROFESOR
End Sub
'EL CÓDIGO SIGUIENTE ES PARA MOVERSE ENTRE LOS REGISTROS:
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
'IR AL PRIMER REGISTRO
Me.AdministradorBaseDeEnlaces_Empresa.Position = Integer.MinValue
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
'IR AL REGISTRO ANTERIOR
Me.AdministradorBaseDeEnlaces_Empresa.Position -= 1
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
'IR AL REGISTRO SIGUIENTE
Me.AdministradorBaseDeEnlaces_Empresa.Position += 1
End Sub
Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
'IR AL ÚLTIMO REGISTRO
Me.AdministradorBaseDeEnlaces_Empresa.Position = Integer.MaxValue
End Sub
CUALQUIER DUDA, AQUI ESTAMOS CAMPEON !
