SoloCodigo

Tengo una aplicacion en la cual tengo multiples tablas relacionadas a mi tabla principal que se llama MaestroPacientes. Quisiera poder desplazarme atras y hacia a delante, y todo lo demas.
Me gustaria que me ayuden con esto soy nuevo en visual net, y aqui en mi pais no esta muy difundido este lenguaje, lo que he aprendido lo he hecho solo leyendo.
Aqui les mando el codigo para que lo vean y me digan que sigue para poder navegar por mis registros, va comentariado paraa que le entiendan mejor.

Private Sub frmMaestroPaciente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'Creo el objeto de conexion
            Dim conexion As New SqlConnection
            '^Pasar la Cadena de conexion
            conexion.ConnectionString = "data source=PROGRMADOR;" & _
                      "initial catalog=atencion_admision;" & _
                      "integrated security=SSPI;persist security info=True;" & _
                      "workstation id=sa;packet size=4096"
            lectura()

            '´Creo Adaptadores
            Dim daMaestroPacientes As New SqlDataAdapter("Select * From MaestroPacientes", conexion)
            Dim daMaestroBeneficiarios As New SqlDataAdapter("Select BODEGA,Categoria,Num_Exp,Apellidos,Nombres,Fecha_Nac,NO_INSS From MaestroBeneficiarios where Categoria like '%Hijo%'", conexion)
            'Dim daMaestroBeneficiarioConyugue As New SqlDataAdapter("Select BODEGA,Categoria,Num_Exp,Apellidos,Nombres,Fecha_Nac,PF,NO_INSS from MaestroBeneficiarios where Categoria='%Conyugue%'", conexion)
            Dim daPercapita As New SqlDataAdapter("Select * From PERCAPITA", conexion)
            Dim daContratosIndividuales As New SqlDataAdapter("Select * From ContratosIndividuales", conexion)
            Dim daNumeroContratos As New SqlDataAdapter("Select No_Cont,FECHA_CONT,F_INI_SERV,TIPO_AFIL,NO_INSS From NumerosContratos Order by FECHA_CONT Desc", conexion)
            Dim daCatalogoEmpresa As New SqlDataAdapter("Select NO_EMPRES,EMPLEADOR,NOMINA,NOMB_EMPR,NO_INSS From CatalogoEmpresas ", conexion)

            'Declaro e instancio mi Dataset
            Dim dsPacientes As DataSet
            dsPacientes = New DataSet
            'Abro Conexion
            conexion.Open()
            'Utilizo los Adpatadores Para rellenar el dataset con tablas
            daMaestroPacientes.Fill(dsPacientes, "MaestroPacientes")
            daMaestroBeneficiarios.Fill(dsPacientes, "MaestroBeneficiarios")
            daPercapita.Fill(dsPacientes, "PERCAPITA")
            daContratosIndividuales.Fill(dsPacientes, "ContratosIndividuales")
            daNumeroContratos.Fill(dsPacientes, "NumerosContratos")
            daCatalogoEmpresa.Fill(dsPacientes, "CatalogoEmpresas")

            'Cerrar Conexion
            conexion.Close()
            'Relaciono las 2 tablas del Dataset por Campo Comun
            Try
                Dim Paciente_Beneficiario As DataRelation = dsPacientes.Relations.Add("Paciente_Beneficiario", _
                dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
                dsPacientes.Tables("MaestroBeneficiarios").Columns("NO_INSS"))
               
                Dim Paciente_Percapita As DataRelation = dsPacientes.Relations.Add("Paciente_Percapita", _
               dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
               dsPacientes.Tables("PERCAPITA").Columns("NO_INSS"))

                Dim Paciente_ContratoIn As DataRelation = dsPacientes.Relations.Add("Paciente_ContratoIn", _
               dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
               dsPacientes.Tables("ContratosIndividuales").Columns("NO_INSS"))

                Dim Paciente_NoContratos As DataRelation = dsPacientes.Relations.Add("Paciente_NoContratos", _
                    dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
                    dsPacientes.Tables("NumerosContratos").Columns("NO_INSS"))

                Dim Paciente_Catalogo As DataRelation = dsPacientes.Relations.Add("Paciente_Catalogo", _
                   dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
                   dsPacientes.Tables("CatalogoEmpresas").Columns("NO_INSS"))


                'Enlazo mis datos a los controles de mi formulario
                txtExpediente.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.NUM_EXP")
                txtInss.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.NO_INSS")
                txtPrimerNombre.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.PriNombre")
                txtSegundoNombre.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.SegNombre")
                txtPrimerApellido.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.PriApellido")
                txtSegundoApellido.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.SegApellido")
                txtEstado.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Percapita.ESTADO")
                txtPercapita.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Percapita.PACIENTE")
                txtConyugue.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_ContratoIn.Nombre_Cony")
                chkBodega.DataBindings.Add("Checked", dsPacientes, "MaestroPacientes.BODEGA")
                chkSinExpediente.DataBindings.Add("Checked", dsPacientes, "MaestroPacientes.SinExp")
                chkBaja.DataBindings.Add("Checked", dsPacientes, "MaestroPacientes.BAJA")
                DateTimePicker1.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.FECHA_ING")


                cboSexo.DataSource = dsPacientes.Tables("MaestroPacientes")
                cboSexo.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.SEXO")
                cboSexo.DisplayMember = "SEXO"


                cboNombreEmpresa.DataSource = dsPacientes
                cboNombreEmpresa.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Catalogo.NOMB_EMPR")
                cboNombreEmpresa.DisplayMember= "CatalogoEmpresas.NOMB_EMPR"

                cboNumeroEmpresa.DataSource = dsPacientes
                cboNumeroEmpresa.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Catalogo.NO_EMPRES")
                cboNumeroEmpresa.DisplayMember= "CatalogoEmpresas.NO_EMPRES"


                cboPatronalEmpresa.DataSource = dsPacientes
                cboPatronalEmpresa.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Catalogo.EMPLEADOR")
                cboPatronalEmpresa.DisplayMember= "CatalogoEmpresas.EMPLEADOR"


                grdHijos.DataSource = dsPacientes
                grdHijos.DataMember = "MaestroPacientes.Paciente_Beneficiario"
                grdContratos.DataSource = dsPacientes
                grdContratos.DataMember = "MaestroPacientes.Paciente_NoContratos"
            Catch exa As SystemException
                'Capturo el error a la hora de cargar las tablas en mi dataset

                MessageBox.Show("Error al Cargar Datos" & ControlChars.CrLf & exa.Message)
            End Try
        Catch ex As SqlException
            'Si se produce algun error
            'Lo capturo mediante el objeto
            'de excepciones particular
            'para el proveedor de sqlServer
            MessageBox.Show("Error al Conectar a la Base de Datos" & ControlChars.CrLf & ex.Message & ControlChars.CrLf & ex.Server)
        End Try
    End Sub