Forms :: Formatting List Box Columns

I have a table of data (codes & amounts) which I want to display on a form via a list box (purely for information purposes; the list box will be locked / disabled). Basically, the list box will mimic a pivot table as it would appear in Excel, albeit without any of the filtering functionality.Codes can appear multiple times in the source table, each with a different value assigned to it.

The list box should have 3 columns :the unique code strings
the number of instances of that code string (i.e. Count)
the total value assigned to that code string (i.e. Sum)
In descending order based on the number of instances of each code

I have the following query set up to pull the data :

Quote:

SELECT tblData.Code AS Expr1, Count(*) AS CodeCount, Sum(tmp.Amount) AS CodeSum
FROM (SELECT Code, Amount FROM tblData) AS tmp
GROUP BY tblData.Code
ORDER BY Count(*) DESC;

I want the 3rd column of the listbox (the summed value) to appear as a formatted $ amount rather than a raw floating point. So "$10,000" rather than "10000.00". And, if at all possible, right aligned.But I have no way of formatting the columns of the list box (that I am aware of) either through the listbox properties directly or by VBA indirectly.Is there another way I can do this, either by applying the formatting to the query itself or any other trick to somehow apply the formatting as I need it?