VB6 - Problema Combo N. 2

[Mirco65]

Vi posto il codice seguente che carica il combo:

rsDB.MoveFirst

While Not rsDB.EOF
wCombobox.AddItem rsDB.Fields(0).Value
wCombobox.ItemData(wCombobox.NewIndex) = rsDB.Fields(0).Value
rsDB.MoveNext
Wend

tutti i dati di rsDB.Fields(0).Value sono in formato testo Es. '001'
Se in rsDB.Fields(0).Value si trova "AAA" mi da errore

I dati del cobo mi servono poi per fare la ricerca !
Come posso risolvere ?
GRazie

[oregon]

Gli ItemData possono essere solo dei valori numerici ...

P.S. Vedi note sul regolamento al thread n. 1