Visual Basic - Consulta SQL EN UN DATACOMBO el resultado

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

Prueba esto:

sql = "Select distinct obra from VAL"
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "obra"

quiero un buscador con ado en visual vasic 6.0 gracias