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
		%>