Visual Basic - ufff...

Buenaaas:
Alguien tiene algun programita en el que tenga un datacombo donde elegir una lista de algo (apellidos, DNI-s, lo q sea...) y segun elija ese dato le salgan en text-boxs los datos relacionados de ese registros.
Es decir, eliges un dni y te saca el nombre, apellido, etc. Algo similar a eso, los campos me dan igual. Si podeis hecharme una mano seria de gran ayuda q me mandaseis ese ejemplo al mail, os estare sinceramente agradecido. Un saludo.

-Guay-

Private Sub cbxlocalidad_click()
Dim rs As Recordset
Dim q As QueryDef
Dim r As Recordset
Dim trib As String
Dim cad As String
'If modoentrada = "" Then Exit Sub
On Error GoTo error
If AlumnoActivo = 0 And modoentrada <> "Nuevo" Then Exit Sub
If Not cbxLocalidad.ListIndex = -1 Then
'meto la cuña de la localidad sin definir
If cbxtribunal.Text = "." Or cbxLocalidad = "sin definir" Then
Chdireccionjudicial.value = 0
Exit Sub
End If

'coloco la provincia y comunidad

cad = "SELECT aux_localidad.id_localidad, aux_provincia.Provincia, aux_autonomia.Autonomia, aux_localidad.POBLACION"
cad = cad & " From aux_autonomia, aux_provincia, aux_localidad Where aux_provincia.id_provincia = aux_localidad.id_provincia And aux_autonomia.id_ccaa = aux_provincia.id_ccaa"
cad = cad & " AND (aux_localidad.id_localidad)= " & cbxLocalidad.itemdata(cbxLocalidad.ListIndex)
'''Set q = Bd.QueryDefs!ProvinciaComunidad
'''q!CodLocalidad = cbxLocalidad.itemdata(cbxLocalidad.ListIndex)
Set r = Bd.OpenRecordset(cad, dbOpenDynaset, 0, dbPessimistic)
BuscaItemData cbxLocalidad, r!id_localidad
txtProvincia = r!Provincia
txtComunidad = r!Autonomia
r.Close
'''q.Close
End If
'ilp

'cargo los tribunales de esa localidad en el combo
trib = cbxtribunal.Text
Set r = Bd.OpenRecordset("SELECT DISTINCT aux_direcciones.id_tribunal,aux_tribunal.tribunal,aux_tribunal.tribunal_seccion FROM aux_direcciones INNER JOIN aux_tribunal ON aux_direcciones.id_tribunal = aux_tribunal.id_tribunal

muchas gracias, estudiare atentamente el codigo q me has puesto y lo habituaré a mi programa. Muchas gracias de nuevo y ya sabes, si puedo ayudarte en algo estare gustoso de hacerlo. un saludo:

-Guay-