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