<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("Archive.mdb")
set rs=cn.execute ("Select SUM(costs) as mySum from [Table] ")
response.write "The sum is : "&rs("mySum")
cn.close
Set cn = NOTHING
Set rs = Nothing
%>