select

Galera, tenho duas tabelas sendo, (Clientes) e (Contratos)

Campos da tabela (Clientes):

Numero

Nome

Campos da tabela (Contratos):

Numero

Contrato

Tenho 01 ComboBox e um textBox, no ComboBox carrego os contratos conforme abaixo:

Set Contratos = New ADODB.Recordset

Contratos.Open "SELECT Contrato FROM Contratos", Banco4, adOpenKeyset, adLockPessimistic

ComboCT.Clear

Do Until Contratos.EOF

ComboCT.AddItem UCase(Contratos("Contrato"))

Gostaria de fazer um select quando ao selecionar um contrato no ComboBox ele me retorne no TextBox o Nome referente a esse contrato mas so tenho como referencia nas duas tabelas o campo (Numero). É possível dar um exemplo? Banco access(ADO)