Hi all
First of all, sorry for my poor english writing.
My question is:
Why I can NOT set the value "11001000000" to one of combo items as its ItemData value?

I mean:

With Recordset1
.Sort = "ID Asc"
While Not .EOF
sItem = .Fields("Code") & " - " & .Fields("Name")
Combo1.AddItem (sItem)
Combo1.ItemData(Combo1.NewIndex) = .Fields("ID")
End With
Now, VB 6.0 compiler shows me "Overflow 6" error message for the line "Combo1.ItemData(Combo1.NewIndex) = .Fields("ID") " when .Fields("ID") has the value equal to 11001000000.

How can I solve this problem?