`EU` fazia um for..next pra somar........
depois de um select vc tem a quantidade de registro retornados na VAR que representa o RecordSet atraves da propriedade recorcout.....entao
olha so quantidade deve ser int ---- inteiro certo....
ja o valor deve ser do tipo currency --- moeda certo....
declara 5 VAR tres do tipo inteiro e 2 moeda
dim Total, Qd, QDT as integer
dim VALORT, Valor as currency
dePois do select
total = vartabela.recorcount
for i = 1 to total
qd = vartabela!campoquantidade
valor = vartabela!campovalor
QDT = qd + qd
VALORT = valor + valor
vartabela.movenext
next i
msgbox `quantidade total ` & qd & ` valor total ` & VALORT
PS: digitei tudo de cabeca, cuidado com a grafia, nao testei.....