strSQL = "SELECT Sum(tblPayment.Amount-(tblPayment.Amount*0.1)) AS SumOfAmount FROM tblPayment GROUP BY tblPayment.ContractID, tblPayment.Method HAVING (((tblPayment.ContractID)= " & [Forms]![frmViewMNW].[txtContID] & ") And ((tblPayment.Method)='GST Included'));"
Set dbs = CurrentDb()
Set rst...