Add Extra Column to List Box

[Bob V]

I am trying to add an extra column to my "Distribute Invoice" List Box
I would like "Distribute Invoice" to show tblInvoice_ItMdt.TotalAmount" like
Holding Invoice does
Thanks for any help with this................Regards Bob

***Holding Invoices****
lstModify.RowSource = "SELECT tblInvoice_ItMdt.IntermediateID," _
& " tblInvoice_ItMdt.HorseID," _
& " funGetHorse(0,tblInvoice_ItMdt.HorseID,false) AS Name," _
& " tblInvoice_ItMdt.TotalAmount" _
& " FROM tblInvoice_ItMdt INNER JOIN tblHorseInfo" _
& " ON tblInvoice_ItMdt.HorseID=tblHorseInfo.HorseID" _
& " order by funGetHorse(0,tblInvoice_ItMdt.HorseID,true) " _
& ",funGetHorse(0,tblInvoice_ItMdt.HorseID,false);"

lstModify.ColumnCount = 4
lstModify.ColumnWidths = "0;0;6 in;1 in"
lstModify.BoundColumn = 1
-----------------------------------------------------------
***Distribute Invoices*****
lstModify.RowSource = "SELECT Format(MIN(dtDate),'dd-mmm-yyyy') AS
StartDate," _
& " Format(MAX(dtDate),'dd-mmm-yyyy') AS EndDate," _
& "
tblInvoice_Itmdt.HorseID,funGetHorse(0,tblInvoice_Itmdt.HorseID,false)" _
& " FROM tblInvoice_Itmdt" _
& " GROUP BY tblInvoice_Itmdt.HorseID" _
& " order by funGetHorse(0,tblInvoice_ItMdt.HorseID,true) " _
& ",funGetHorse(0,tblInvoice_ItMdt.HorseID,false);"



lstModify.ColumnCount = 4
lstModify.ColumnWidths = "1 in;1 in;0;1.5 in"
lstModify.BoundColumn = 2