format in a listbox

[NISMOJim]

Helloeveryone, it's been a while...

I have a form to enter purchases. As a reference, I'm using a listbox to display the amount that has already been spent, and another to display how much is left in an account available for spending. The Row Source Type for this first box is Table/Query, and the Row Source is the following sql...

SELECT PO.PONo, PO.D1, PO.D2, PO.D3, Nz([D1])+Nz([D2])+Nz([D3]) AS Total FROM PO WHERE (((PO.PONo)=[Forms]![FlDel]![PONo]));

This is working fine, the problem is with formatting. All of these fields in the table are formatted as currency, and I went through the sql as I was building it, and formatted them as currency there too, but the listbox still shows a non-formatted number (at least it's the correct number). Since there is no formatting property for a listbox, and no Row Source if I were to change to a textbox, how can I get this box to display as currency?

Thanks (as always) for the help.

[June7]

Try the Format function.

Format([D1], "Currency")