Ola Pessoal, eu fiz esse processo de jogar os dados do listbox para o txtbox dessa maneira, so que descobri que apos selecionar o registro na listbox(nr 16) ele vai jogar sempre no primeiro registro da tabela e modifica todo registro 1 da tabela(ficando o nr 1 sendo o nr 16) e nao o proprio registro selecionado na listbox, por isso se alguem puder estar orientando-me no sentido de resolver essa situacao, fico grato a todos que postarem no auxilio, abraco

Este meu codigo

Private Sub lbDados_Change()
    
    Me.txtCodigo.Text = lbDados.List(lbDados.ListIndex, 0)
    Me.txtNome.Text = lbDados.List(lbDados.ListIndex, 1)
    
    Me.txtEndereco.Text = lbDados.List(lbDados.ListIndex, 2)
    Me.txtBairro.Text = lbDados.List(lbDados.ListIndex, 3)
    Me.ComboBoxMunicipios.Value = lbDados.List(lbDados.ListIndex, 4)
    
    Me.ComboboxEstados.Text = lbDados.List(lbDados.ListIndex, 5)
    Me.txtCep.Text = lbDados.List(lbDados.ListIndex, 6)
    Me.txtTelefone.Text = lbDados.List(lbDados.ListIndex, 7)

    Me.txtCelular1.Text = lbDados.List(lbDados.ListIndex, 8)
    Me.txtCelular2.Text = lbDados.List(lbDados.ListIndex, 9)
End Sub