RsShapePur.Open "SHAPE { SELECT PurchaseDelivery.DeliveryCode, InvoiceNo, DeliveryDate, PurchaseDeliverySub.ItemCode, UOM, Qty, SRP, Amount, Description, Company " _
    & "FROM Product, PurchaseDelivery, PurchaseDeliverySub, Supplier " _
    & "WHERE Product.ItemCode = PurchaseDeliverySub.ItemCode " _
    & "AND PurchaseDelivery.DeliveryCode = PurchaseDeliverySub.DeliveryCode " _
    & "AND PurchaseDelivery.SupplierID = Supplier.SupplierID " _
    & "AND Company ='" & Trim(UCase(cboSupplier)) & "' } " _
    & "AS Pur " _
    & "COMPUTE Pur, SUM(Pur.Amount) AS SubTot BY 'Pur.DeliveryCode', 'InvoiceNo', 'Company', 'DeliveryDate'", ConShape, adOpenStatic, adLockReadOnly


this code is working until i insert the code below  
     SUM(Pur.Amount) AS SubTot

and it show a run time error : "Column (Pur.DeliveryCode) does not exist in the appropriate rowset."

i hope you can help me with this problem




____________________________
GOD IS MY SHEPERD