<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Archivio.mdb")
set rs=cn.execute ("Select SUM(spesa) as totale from tabella")
response.write "Risultato dalla somma del campo spesa: " & rs("totale")
cn.close
Set cn = NOTHING
Set rs = Nothing
%>

Questo script leggerà "Tabella" nel database "Archivio.mdb" e sommerà il contenuto numerico di tutti i record del campo spesa restituendoci, in questo caso, la somma totale.