对象打开时，不允许操作 (asp连数据库) 高手指教

[sinkawa]

我是个菜鸟来的,请大侠帮忙指出

错误类型：
ADODB.Recordset (0x800A0E79)
对象打开时，不允许操作。
/bbs/workshop.asp, 第 82 行
报错位置已用##符号划出


asp程序:

<%
end if

Set rs1 = Server.CreateObject("ADODB.Recordset")
datapath ="job/" '数据库目录的相对路径
datafile ="job.asa" '数据库的文件名

Set conn1=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
conn1.open ConnStr
%>

<%
sql1="select * from [job] where username='"&Request.Cookies("username")&"'"
rs1.Open sql1,Conn1,1,3

if rs1.eof and rs1.bof then
error("有没有搞错？！！你还没有职业，请你你先申请职业！")

end if
%>


<%
if rs("money")<100 then
error("你也太穷了吧，还不快去赚钱！")
end if

if rs("userlife")<20 then
error("你的身体太虚弱了！！快去看医生！")
end if

select case Request("menu")
case "buyexp"
buyexp


end select

%>
<%
'exp lover wenxue yishu jaoji tiyu jishu


sub buyexp
dim a,b
a=request.form("str")
if a="" or IsNumeric(a)=false Then
error("<li>请务必输入一个数字。")
elseif a<=0 then
error("<li>请务必输入一个大于0的数字。")
elseif 10*a>rs("money") then
error("<li>你不够钱买经验！")
else
a=fix(a)
b=fix(10*formatnumber(a))

#######################################
sql1="select * from [job] where username='"&Request.Cookies("username")&"'"
rs1.Open sql1,Conn1,1,3
#######################################

Rs1("exp")=Rs1("exp")+a
Rs("money")=Rs("money")-b
rs1.update
rs1.close
message="<li>购买成功！您的经验增加"&a&"金钱减少"&b&"。<li><a href=../work.asp>返回工作中心</a><li><a href=default.asp>返回论坛首页</a>"
''''''''succeed(message&"<meta http-equiv=refresh content=3;url='bank.asp?menu=3'>")
end if
end sub
%>

[lireng]

记录集返回一次就要关闭一次.

[sinkawa]

我在下面#符号处关闭了,还是报同样的错误,请大侠指出.


if rs1.eof and rs1.bof then
error("有没有搞错？！！你还没有职业，请你你先申请职业！")
rs1.close ############
end if

[sinkawa]

问题已自已摸索,解决了.

感谢大侠帮助!!