codice:
Do While Not rs.EOF
     ListBox.AddItem rs("campo")
Loop