Code: Select all
...
strDBRows = RST0.GetRows
RST0.Close
Me.ORDINE.Clear
Me.ORDINE.AddItem "TUTTI"
'Me.ORDINE.List = strDBRows(1, I) & " - " & strDBRows(0, I)
For I = 0 To UBound(strDBRows, 2)
Me.ORDINE.AddItem Format(strDBRows(1, I), "#0000") & " - " & strDBRows(0, I)
CONTA = CONTA + 1
Next I
..
Based :