[SOLUCIONADO] cargar un combo con datos de sql

[franco55]

Hola amigos tengo q cargar un combo con los nombres de obras sociales que son traidos de mysql pero esta mal la sentencia porfavor ayudenme...ya ise una ensalada de recorsets

Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.Open "Select * from obrasocial", cn, 2, 3


obra = " select nombre_os from obrasocial "
Set rs1 = rs.OpenRecordset(obra)
Combo1.Clear
If rs1.RecordCount > 0 Then
rs1.MoveFirst
While Not rs1.EOF
Combo1.AddItem UCase(rs1("nombre_os"))
'Combo1.ItemData(Combo1.NewIndex) = rs1!id_hotel
rs1.MoveNext
Wend
End If
End Sub

[ValentinoMolinari]

Hola

No te compliques mucho, con el siguiente ejemplo debería funcionar sin problemas

Strsql = "SELECT Descripcion FROM TabObrasSociales "

IF rs.state = 0 then rs.close
rs.open, strsql,cn

do while not rs.eof
combo1.AddItems "" & rs!Descripcion
rs.movenext
loop

espero te sirva,
Saludos