Visual Basic - Ayuda con procedimientos y vb6

Hola, kisiera ver si me pueden ayudar para un proyecto escolar, resulta que tengo un combo, y kiero llenarlo con los nombres de productos que estan almacenados en una tabla uso coneccion adodb.
gracias

(tu_registro).movefirst
do while not (tu_registro) eof
combo1.Additem (tu_registro)!(tu_campo)
(tu_registro).movenext
loop