Ciao.
Io farei così per elencare tutti i valori del database:

with rstIl_Tuo_RecordSet
.MoveFirst
while not .eof
cboCombo1.AddItem !Campo_Database
.MoveNext
wend
end with

Se poi vuoi elencare solo una parte dei record del database occorre fare una modifica al ciclo.

Prova e fammi sapere.