Sumar un campo numerico

[nene16803]

Hola, me estoy realizando una pequeña aplicacion, para sumar lo que tengo de caja de ventas al día, y no se como hacerlo, muestro todos los totales con este codigo.

<%
set oConn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.Recordset")
oConn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("base/gastos.mdb"))

rs.Open "SELECT * from ventas ORDER BY val(id) desc" ,oConn

do until rs.EOF
%>

<%=rs.Fields("totaldedia")%>

<%
rs.MoveNext
loop
rs.close
Set rs = Nothing
oConn.close
Set oConn = Nothing

%>

Como podria sumarlos ???

Gracias por adelantado