Sumar valores de una celda de todos los registros encontrados

[meru-kun]

Pues puedes sumar todas sus notas así:
strSQL = "SELECT NOTAS FROM TABLA WHERE USUARIO="&nUser
set mr = miconex.execute(strSQL)
Do while not mr.eof or mr.bof
intNota = intNota + mr("NOTAS")
mr.movenext
Loop
mr.close

Y luego, haces:
strSQL = "SELECT COUNT("NOTAS") AS Total FROM TABLA WHERE USUARIO="&nUser
set mr = miconex.execute(strSQL)
intTotal = mr("TOTAL")
mr.close

Y luego, simplemente:
nMedia = intNota / intTotal

Espero que te sirva :P