Nunca usei este grid mas, caso já não tenha função pra isso, o q se faz é percorrer linha a linha do grid.
Deve ter alguma propriedade com o total de linhas e outra em q vc pega o conteúdo da célula.
faça um for next de modo a somar o conteúdo de cada célula.
Exemplo de como seria:
Dim cSoma as Currency
cSoma = 0
TDBGrid.Coluna = 3
For i=0 to TDBGrid.LinhasTotais - 1
TDBGrid.Linha = i
cSoma = cSoma + cCur(TDBGrid.Texto)
Next
Total = cSoma
basicamente é isso...
qq coisa postae
at+
