求助高手：循环语句，帮忙找找错！！！
<%sql1="select * from ribao where bumen='"&Request("bumen")&"'"
set rs1=Server.CreateObject("ADODB.recordset")
rs1.CursorType = 3
rs1.Open sql1,conn
dim i,gsbrhe
for i= 1 to rs1.RecordCount
gsbrhe=ccur(gsbrhe)+ccur(rs1("gsbr"))
next
%>
......
application("gsbrhe") = gsbrhe+ccur(request("gsbr"))
我想求出目前数据库中字段bumen=Request("bumen")中gsbr这个字段中所有值得和，再加上从表单中输入的新数的和，然后用application("gsbrhe") 输出？
但计算出的数总数不准确，比如目前gsbr中有两条纪录1,000,000.00和100.00
我在表单中心输入数200.00，最后输出的application("gsbrhe") 却是2,000,200.00
不知是为什么？请大家帮忙看看！谢谢！！！
