求助：记录集错误

xXYXx

<%
lfname="aa"

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gg.mdb")

select case lfname
case "aa"

set rs1=server.createobject("adodb.recordset")
exec="select * from gg where bb=' "&sh&" ' "
rs1.open exec,conn,2,3
while not rs1.eof or rs1.bof
response.Write(rs1("bb"))
rs1.movenext
wend

case "AA"

set rs1=server.createobject("adodb.recordset")
exec="select * from gongdan where gongmao='"&sh&"'"
rs1.open exec,conn,2,3
'response.Write("dfdsfsdf")
while not rs1.eof or rs1.bof
response.Write(rs1("gongmao"))
rs1.movenext
wend

case else

set rs1=server.createobject("adodb.recordset")
exec="select * from gg where tbtype=2 order by date desc"
rs1.open exec,conn,2,3
while not rs1.eof or rs1.bof
response.Write(rs1("bb"))
  rs1.movenext
wend
end select

%>
运行这段代码，出现下面的错误提示：
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
可是我看不出哪有错误啊，到底是哪错了呢？

HonestQiao

微软的asp我们都不会。