<%do while not rs.eof
        dim shop,username,rs2
          set shop=server.CreateObject("adodb.recordset")
          shop.open "select username from [user] where userid="&rs("userid"),conn,1,1
          username=trim(shop("username")   运行时发现这里出错 (0x80020009) 发生意外
          shop.close
          %>
请各位高手帮忙修改一下

<%do while not rs.eof
        dim shop,username,rs2
          set shop=server.CreateObject("adodb.recordset")
          shop.open "select username from [user] where userid="&rs("userid"),conn,1,1
          username=trim(shop("username"))   运行时发现这里出错 (0x80020009) 发生意外
          shop.close
          %>
  请各位高手帮忙修改一下