bellissimo! Grazie!
Alla fine avevo escogitato un'escamotage:

codice:
dim valore as integer
valore=0
do until recordset.eof
valore=valore+valore
recordset.movenext
loop
Ma devo dire che il tuo metodo è molto migliore!
ciao grazie!!!