Tenho uma tabela de cadastro de clientes, gostaria de preencher uma combobox com o nome do cliente e quando o usuário selecionase um nome de cliente na combobox aparece seu codigo em uma TextBox.

Só que se na tabela clientes tiver dois clientes com o mesmo Nome não daria problema, pois isto pode acontecer e o campo de chave primaria na tabela se chama Codigo do Cliente

como vc faz a conexão ao banco de dados???

Para preencher a combo

 

' abre o banco de dados e filtra pelo nome

    rs.Open "SELECT codigo,nome FROM TABELA WHERE nome = ' " & "joao" ' ",...

    If Not rs.BOF Then ' se o banco de dados não estiver vazio
        rs.MoveMin
        Do While Not rs.EOF
            COMBO.AddItem rs("nome")
            COMBO.ListIndex = 0
            rs.MoveNext
        Loop
    End If

' para jogar o codigo na label

   

 

    COMBO.ListIndex = 0

    rs.moveMin
    LABEL1 = rs("codigo")

   

 

    Espero ter ajudo!!

 

   

 

Siga este exemplo:

 

Private Sub pegausuario()
Set rssenha = New ADODB.Recordset
rssenha.Open "SELECT * FROM SENHA", CONEXAO, adOpenKeyset, adLockReadOnly
On Error Resume Next
Combo1.Clear
 Do While Not rssenha.EOF
 Combo1.AddItem rssenha!usuario
 rssenha.MoveNext
 Loop
 rssenha.Close
End Sub

 

para jogar num text

Private Sub Combo1_Click()
Set rssenha = New ADODB.Recordset
rssenha.Open "SELECT * FROM SENHA WHERE USUARIO = '" & Combo1.Text & "'", CONEXAO, adOpenKeyset, adLockOptimistic
txtpegasenha = rssenha!senha
Combo2 = rssenha!acesso
rssenha.Close
end ub