Visual Basic - Bases de datos 1

Buenas a todos, estoi haciendo mi proyecto fin de ciclo y me surgido una duda que no me deja avanzar, haber si me podeis hechar una mano, os digo la duda:

- Tengo una base de datos con 300 nombres, esos 300 nombres los quiero meter en un combobox,como puedo meterlos todos a la vez para que cuando yo pulse la lista me salgan los 300?
un saludo a todos y gracias

dim Db as adodb.connection
dim rs as adodb.recordset
set db=new adodb.connection : set rs=new adodb.recordset
db.open ConexionBase
rs.cursorlocation=adusercliente
rs.open "Select CampoParaRecordset from Tabla",Db, adOpenStatic, adLockOptimistic, adCmdText
rs.activeconnection=nothing
db.close
set dB=nothing
if rs.bof=false and rs.eof=false then
rs.movefirst
do until rs.eof=True
with combo1
.additem rs!Campo
end with
rs.movenext
loop
rs.close
set rs=nothing
combo1.listindex=-1
else
rs.close
set rs=nothing
msgbox "No hay datos",vbexclamation
combo1.lsitindex=-1
end if