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 this old post: http://www.eileenslounge.com/viewtopic.php?f=30&t=4429" onclick="window.open(this.href);return false;
Note:
i just have ordered the value via sql query not important to use the Ordering loop.