problemillas con combobox en VB6

[nobitax]

uoolas soy nuevito y llege aca hace rato pero nunca me registre ya q de aca e solucionado varios problemas en algunos codigos en los cueles e tenido problemas xD en fin

posteo esto porq tengo un problemilla a partir de un select de sql quiero q unas variables se me liste en dicho combobox ejemplo de la tabla alumnos listar en un combobox los nombres de estos los cuales ya estan ingresados

Dim BDD As Database
Dim TBL As Recordset
Dim rutabd As String

rutabd = App.Path & "\bd.mdb"
Set base = OpenDatabase(rutabd)

Dim strsql As String
Dim valor As Recordset

strsql = "select rut from alumno;"
Set valor = base.OpenRecordset(strsql)

ese es el codigo q tengo y apartir del select ubicar los valores en un combobox

espero q me ayuden se los agradeceria bastante

see ya :D