I'am populating a Listbox and Datalist with prices from an Access database.
My problem is that I cannot get the prices to display in the currency format.
I have set the DataFormat Property to Currency but this has no affect.
I have populated the Listbox using a data control and with code just to check to see one way would work better than the other, but I can't display the currency correctly no matter which way I try.

Here is the code I used.

Do While Not Records.EOF
Price.AddItem Records("Price")
Price.ItemData(In_Stock.NewIndex) = Records("Stock_Code")
Records.MoveNext
Loop

Can any one help!!!