Hola: espero que esto te sirva...
te explico...
1-Primero abres la coneccion a la base de datos
2-Una ves conectada y abierta la base, haces un .movefirst para posicionarte en el prime registro.
3-Luego haces un Do Until .EOF (hacer hasta fin de archivo)
4-Luego pones lo siguiente:
Combo1.AddItem .fields("nombredelcampo")
.MoveNext ' esto es para pasar al siguiente registro
Loop
5-Y cierras la coneccion de la base de datos.
Esto lo que hace es carga un campo X a un combobox y es igual para una dbcombo...
Saludos.
Leo