Visual Basic - datos en un combo

¿COMO LO PUEDO HACER PARA QUE POR MEDIO DE UN SELECT A UNA BD SQL, ME DESPLIEGUEN LOS DATOS EN UN COMBO BOX?

Hola.
Si solo quieres mostrar los datos de un combo, es facil:

Dim r as new Adodb.recordset

r.open SenteciaSQL, Conexion, TipoCursor, TipoBloqueo

if r.EOF and r.BOF then
'No se ha abierto o no hay registros
else
While not r.eof
Combo1.AddItem r.Fields(numerodecampoaañadir)
r.Movenext
Wend
If r.state = 1 then r.close
End if

Prueba con eso.