那个分数的纪录不能更新，帮忙看看哪里错了，谢谢！

<%
dim f
a = Request("name")
b = Request("fenshu")
set conn = server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("账号.mdb")
set rs = server.createobject("adodb.recordset")
sql="Select * From 邮件列表 where 姓名 ="&a
'SQL语句，从数据表选出姓名为变量a的记录。
rs.Open sql,conn,1,3
'打开库，并执行SQL语句。
f = rs("分数")
rs("分数") = f + b
rs.update
'更新数据到数据库。
rs.close
'关闭记录集
set rs = nothing
set conn = nothing
%>

感谢allinhands！！！这里的版主帮助回帖特别快，真的很感谢！！！