Visual Basic - mostrar result de consul 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

\\ 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

Set datacombo.RowSource = Rs
datacombo.ListField = "OB"

saludos