Visual Basic - Insertar resultados deconsulta sql en un 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

Cambia el tipo de cursor a Static

rs.Open sql, conexion, adOpenStatic, adLockOptimistic
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "OB"

Así debería funcionar

hICE LOS CAMIOS K ME SUGERISTES , Y AL MOMENTO DE EJECUTAR EL FORMULARIO EL DATACOMBO1 APARECE EN BLANCO, QUE PUEDE ESTAR PASANDO...

Set DataCombo1.RowSource = rs
DataCombo1.ListField = "OB"
HARIA FALTA UN
DATACOMBO1.ROWMENBER=?????

AYUDAME POR FAVOR , GRACIAS