Visual Basic - Insertar consulta sql en datacombo

Hola amigos gracias por la ayuda que me puedan brindar , el problema que tengo es el siguiente tengo la siguiente consulta :

Dim sql As String

Set rs = New ADODB.Recordset

rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYS\BD\PPTOS.mdb;Persist Security Info=False"

sql = "Select distinct obra as OB from VAL"

rs.Open sql, , adOpenDynamic, adLockOptimistic

// No me sale nadaaaaaaaaaaaaa…..
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "OB"

\\ aca se muestra los resultados en un MSHFLEXGRID SIN PROBLEMAS
Set MS.DataSource = rs

rs.Close

hASTA AHI BIEN, PERO YO DESEO QUE LOS RESULTADOS DE ESTA CONSULTA SE MUESTREN EN UNA DATACOMBO.

Gracias

A eso ya te contesté en otro (de los muchos) foros donde pusiste la pregunta.

No resulta amigo, he intentado con lo que me has dicho y nada