hola soy nuevo en este foro veo y pues aqui estamos todos para darnos la mano. te pongo un ejemplo sencillo.
una ves que conectas al dbgrid usas un bucle que sume hasta llegar el ultimo recordset no olvides que puedes agregarlo como si fuera una rutina extra .
rutina suma dbgrid()
variable = 0
do while no rs.eof
variable = variable + dbgrid1.recordset.field(0)
rs.movenext
loop
etiqueta1= val(variable)
sub()
bueno esa es la logica que tienes que usar para que puedas sumar los datos que tienes que supongo que son numericos.
espero aver podido ayudarte en eso si en caso no esta claro escribeme para poder seguir ayudandote . saludos.