Visual Basic - Cargar Combox con resultado de busqueda

Hola!!!! Como hago para que en ComboBox(u objeto parecido) al hacer una consulta, este se cargue con los campos de una tabla access...
Gracias

' Con los nombres de los campos
dim rst as new adodb.recordset
sql="select ......."
rst.open sql, con ' con es la conexión que utilices
for i=0 to rst.fields.count-1
combo.add rst.fields(i).name
next

' o con los valores
do while not rst.eof
combo.add rst.fields(i).value
rst.movenext
loop