Totaliza o resultado de um recorset

Boa Tarde Pessoal, nesse codigo faço um select tudo funciona ok, mas eu preciso que no fim dele seja somado o valor de todos os campos v_total_est que não vem do select o calculo e feito no codigo! Isso é possivel?

' Define variaveis e chama dados do DB
Dim Recordset1
Dim Recordset1_numRows, strConnection
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prod.mdb") & ";Persist Security Info=False"
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = strConnection
Recordset1.Source = "SELECT cod_produto, produto, vrl_unitario, custo_prod, qtd_estoque FROM produtos WHERE cod_categoria = " & varClie & " ORDER BY produto "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
' Montando o Form
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows

<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<% intRecID =(Recordset1.Fields.Item("cod_produto").Value) ' Store the current RecordID in a variable %>

 <tr bgcolor="#999999">
 <td nowrap><div align="center"><%= intRecID %><input name="hidRecID<%= intRecID %>" type="hidden" value="<%= intRecID %>" size="5">
 </div></td>
 <td nowrap><%=(Recordset1.Fields.Item("produto").Value)%></td>
 <td nowrap><input name="txtCust<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("custo_prod").Value)%>" size="10"></td>
 <td nowrap><input name="txtNum<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("vrl_unitario").Value)%>" size="10"></td>
 <td nowrap>
 <%
 ' Calculando Margem
 Dim calc1, calc2, marg, marg2
 calc1 = Recordset1.Fields.Item("custo_prod")
 if calc1 > 0 then
 calc1 = Recordset1.Fields.Item("custo_prod")
 else
 calc1 = 1
 end if
 calc2 = Recordset1.Fields.Item("vrl_unitario")
 marg = calc2 / calc1 * 100 - 100
 Response.Write Formatnumber (marg)
 %>
 </td>
 <td nowrap>
 <input name="txtNum<%= intRecID %>2" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("qtd_estoque").Value)%>" size="10"></td>
 <td nowrap>
 <%
 ' Calculando valor de estoque
 Dim v_estoq1, v_prc, v_total_est
 v_estoq1 = Recordset1.Fields.Item("qtd_estoque")
 v_prc = Recordset1.Fields.Item("custo_prod")
 v_total_est = v_estoq1 * v_prc
 Response.Write (v_total_est)
 %>
 </tr>
 <%
 Repeat1__index=Repeat1__index+1
 Repeat1__numRows=Repeat1__numRows-1
 Recordset1.MoveNext()
 Wend
 %>