Bom dia amigo, eu de novo

estou gerando um relatório de listagem de produtos por itens

exe:  do DataReport
Produto                   Quant                   Valor
-----------------------------------------------------
Unbound                Unbound          Unbound
como faço as soma (uso o Sum) no DaraReport, ou antes de mandar a impressão.

NA MINHA LISGATGEM ESTA ASSIM:
Sub MostraTotal()
Dim Total As Double
For Linha = 1 To FG1.Rows - 1
On Error Resume Next
Total = Total + CDbl(FG1.TextMatrix(Linha, 5)) ' 2 é a coluna a ser somada
Next Linha
txtValor.Text = Format(Total, "##,###,##0.00")
End Sub

(FG1 é MSFLEXGRID
Grato