Ho bisogno di caricare un combobox con codice e descrizione da dataset-

Ho fatto nel seguente modo :

rsDB.MoveFirst
For i = 0 To rsDB.RecordCount
wCombobox.AddItem rsDB.Fields(1).Value
wCombobox.ItemData(wCombobox.NewIndex) = rsDB.Fields(0).Value
Next i

ovviamente mi carica sempre il primo record ! come faccio a fare il next record ?

Vorrei inoltre rendere visibili due colonne nel combo ma ho letto da qualche parte che il codice però deve essere numerico invece il mio è stringa.
C'è un modo per farlo ?
Grazie