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 gm='"&sh&"'"
rs1.open exec,conn,2,3
while not rs1.eof or rs1.bof
response.Write(rs1("gm"))
  rs1.movenext
wend
'response.Write(rs1("gm"))

case "AA"

set rs1=server.createobject("adodb.recordset")
exec="select * from gg where gm='"&sh&"'"
rs1.open exec,conn,2,3

while not rs1.eof or rs1.bof
response.Write(rs1("gm"))
  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("gm"))
  rs1.movenext
wend
end select

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