no puedo sumar campos de una consulta de BD

[meru-kun]

Los datos que muestras son numericos, pero la experiencia me demuestra que los toma como valores string.

Haz algo así
do while not mr.eof
intValorAhora = mr("VALOR")
intTotal = intTotal + intValorAhora
mr.movenext
loop
mr.close

Puede que con eso lo arregles.