codice:
rs.open sql

Do Until rs.EOF
    valore = rs("campo")
    combo.AddItem valore
    rs.MoveNext
Loop