Visual Basic - vincular una entrada en un textbox a un combobox

Como puede combinar la entrada en textbox, la entrada es de 4 cifras aleatorias(2213 por ejemplo) y que el combobox me salga por ejemplo el nombre y apellido de una persona detarminada.

Para hacer eso, primero para los numeros aleatorios seria (segun la ayuda) asi:
Dim Valor as Variant
Valor=Int((9999 - 1000+1) * Rnd + 1000)
y luego te rocecomendaria que trabajes con un datacombo , asi si por ejemplo tu tabla de personas tiene los campos Codigo y Nombre,el enlace al datacombo seria
Set rs=New Recordset
Rs.CursorLocation=adUserClient
Rs.Open "Select * From Personas where Codigo=' " & trim(Valor) & " ' ",Cn
Set DataCombo1.RowSource=Rs
DataCombo1.Listfield="Nombre"
DataCombo1.BoundColumn="Codigo"