Visual Basic - 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"
//que puedo estar haciendo malllllllllllllllllll....
\\ 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

El CursorType del recordset. Cámbialo a adOpenStatic ó adOpenKeyset.

No resulta amigo, hice los cambios y nada k puede estar pasando...???ç

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, , adOpenKeyset, adLockOptimistic
//rs.open sql, , adopenstatic,adlockoptimistic

nada de nada....

Gracias por la ayuda

Prueba sin cerrar el recordset (elimina la línea rs.Close en el procedimiento y la pones al cerrar el programa).

Gracias amigo , t pasastes me ayudastes mucho, t agradesco, entonces el recorset:

rs.close

lo puedo cerrar cuando cierro la aplicaion, graciassssssss

Jimmy