Riempimento di una combobox (VB6)

[ivanocol]

Ciao a tutti!
Vorrei inserire in una combobox tutti i valori presenti in un campo di una tabella (con visual basic 6.0). Qualcuno può aiutarmi?

[GudFella]

rs.open sql

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

[ivanocol]

Ok.
Grazie mille.