SoloCodigo

saludos amigos, tengo un atabla en sqlexpress , de clientes puedo agregar eliminar etc puedo moverme entre registros pero solo se mueve el campo codigo perfectamente lo que quisiera es que mientras me voy moviendo se vayan llenando los textboxes con los datos del codigo correspondiente al registro donde estoy por ejemplo nombre et etc  como ya explique solo me llena y va cambiando el texbox del codigo lo demas quedan igual saludos y gracias


   Private Sub btavanzar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btavanzar.Click
        CM.Position += 1
        DisplayNav()
   
    End Subs


form load....
CM = Me.BindingContext(DS.Tables("zonas"))

el proceso displaynav muestra una etiqueta con el numero de registro a pasar ejemplo 1 de 2 2 de 2 el cual funciona bien

aja , ya te coloca parte del codigo para ver si me pueden  ayudar por favor
esto es parte del codigo creo que lo mas importante y donde puedo estar haciendo la cosa mal ya lo demas son los procedimientos de almacenar borrer eliminar etc


repito me funciona todo bien pero solo va pasando el codigo los datos de los otros texboxes quedan igual


Sub LoadData()


        'Inicializar Data Adapter
        DA = New SqlDataAdapter
        Dim SelectCommand As New SqlCommand("SELECT * FROM zonas")
        DA.SelectCommand = SelectCommand

        Connect()

        DA.SelectCommand.Connection = Connection1

        DS.Clear()
        DA.Fill(DS, "zonas")

        Disconnect()
    End Sub


Sub BindTextBox()
        txtcodigozona.DataBindings.Add("Text", DS.Tables("zonas"), "codigozona")
        txtnombrezona.DataBindings.Add("Text", DS.Tables("zonas"), "nombrezona")
        DTPaltazona.DataBindings.Add("Text", DS.Tables("zonas"), "fechaaltazona")
        txtdetallezona.DataBindings.Add("Text", DS.Tables("zonas"), "detallezona")

    End Sub

    Sub DisplayNav()
        Label1.Text = "Registro: " & CM.Position + 1 & " de " & CM.Count
    End Sub

    Private Sub btretroceder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btretroceder.Click
        CM.Position -= 1
        DisplayNav()

    End Sub
    Private Sub btavanzar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btavanzar.Click
        ''  CM.Position += 1
        DisplayNav()
        Me.BindingContext(DS, "zonas").Position += 1
    End Sub

    Private Sub zonas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DS = New DataSet
        LoadData()
        CM = Me.BindingContext(DS.Tables("zonas"))
        DisplayNav()
        ButtonState("comienzo")
        BindTextBox()
        LockTextBox()
        dtpaltazona.Enabled = False

    End Sub