Help in building SQL statement

[Chris]

I think this should be able to fixed your problem.

Dim sql$
Dim Db as DAO.Database
dim Rs as DAO.Recordset

Set Db = DBEngine.Workspaces(0).OpenDatabse(<Your Database>,false, False)
sql = "SELECT DISTINCTROW ItemName, Sum(Quantity * Price) as MyCost FROM TblName ORDER BY ItemName ASC;"
Set Rs = Db.OpenRecordset(sql,dbOpenSnapshop)
if Rs.RecordCount <>0 Then
   While not Rs.EOF
      Debug.Print Rs.Fields("ItemName") & " Total Cost is " & Format(Rs.MyCost,"#,##0.00")
      Rs.MoveNext
   Wend
End If

[Edited by Chris on 06-09-2000 at 11:10 PM]