孝感市医院:有关ASP修改记录代码的问题

这是表文件的代码
<% dim db
Set db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq=" & Server.MapPath("data\xs.mdb") & ";Driver= {Microsoft Access Driver (*.mdb)} "
dim rec,sql

sql="select*from xsb where no= '" & request.QueryString ("no")&"'"
set rec=db.execute(sql)
if not rec.bof and rec.eof then
session("no")=rec("no")
end if
%>
这是修改的功能代码
<%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq=" & Server.MapPath("data\xs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)} "

dim alert,over

alert="<Script language='javascript'>alert('发生严重错误！请返回重新填写表单！');history.back(1);</Script>"
over="<script language='javascript'>alert('修改信息已经成功提交！');self.location=('ckgltable.asp');</script>"
dim no,xh,varname,sex,cs,xb,bj,home,dh,email

xh=request.form("xh")
varname=request.form("name")
sex=request.form("sex")
cs=request.form("cs")
xb=request.form("xb")
bj=request.form("bj")
home=request.form("home")
dh=request.form("dh")
email=request.form("email")
strsql="update xsb set xh='"&xh&"', name='"&varname&"',sex='" & sex &"',cs='" &cs &"',xb='" &xb&"',bj='"&bj&"',home='"&home&"',dh='"&dh&"',email='"&email&"'where no=" & request.form("no")
db.execute(strsql)
response.write("<script language='javascript'>alert('已经成功修改！');self.location=('list.asp');</script>")

%>
我的库没有问题没有缺少项目可是为什么老是显示“错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。”