Visual Basic - ADO y ListaDesplegable (Substituye al anterior)

Hola, perdonad si la pregunta es tonta pero he intentado varias veces programar en VB (programo en Access) y todas las veces lo he dejado porque para mi era muy facil hacer según que cosas en access. Esta vez me he empeñado en conseguirlo y tengo varios problemas. Os comentaré el primero y mas adelante, si no lo soluciono y no tiro la toalla ya comentaré otros.
He hecho acceso ADO mediante codigo sin utilizar el componente de VB y no tengo problemas com los campos pero al intentar usar una lista deplegable 'combo' no visualiza los datos. He creado dos accesos a tablas uno lo asigno así:
SET nombrecontrol.DATASOURCE= rstPersonal
(rstPersonal es el acceso de la tabla personal)
SET nombrecontrol.ROWSOURCE=rstProfesion
(rstProfesion es el acceso a la tabla que tiene los campos codigo y profesion (se tiene que ver profesion y guardar codigo))
El codigo sigue:
nombrecontrol= rstPersonal.Fields("CodigoProfesion")
nombrecontrol.Columns(1).DataField = "Profesion"
nombrecontrol.BoundColumn = rstProfesion.Fields("Codigo")
cnombrecontrol.ListField = rstProfesion.Fields("Profesion")
PEro no veo los datos.
¿Alguien puede echarme una mano?
Gracias anticipadas y perdonad la extensión y el mensaje anterior incompleto
José Antonio

a ver si te sirve esto

abris un recordset con los datos que quieras mostrar
Ej "select NOMBRE from EMPRESA order by NOMBRE"

este codigo lo pones en el gotfocus del combo1

with RECORSET
.movefirst
combo1.clear
DO while not .EOF
combo1.additem !NOMBRE
.movenext
LOOP
end with