Hi Im Getting an error when open the secon record set in the below code.
Why is this

strSQL = "SELECT * FROM "&tabName1&" ORDER BY id"
RS.Open strSQL, Conn 

if not rs.bof or not rs.eof then
		RS.MoveFirst 
		
		do while not RS.EOF
		      
			 
			if Cint(sMonth) <> 99 and tabName1="referals" then
				strSQL = "SELECT * FROM comments where referal='"&RS("referal")&"' entryMonth="&Cint(sMonth)&" order by id"
			end if
			if Cint(sMonth) = 99  and tabName1="referals" then
				strSQL = "SELECT * FROM comments where referal='"&RS("referal")&"'"&" order by id"
			end if
			if Cint(sMonth) <> 99 and tabName1="portals" then
				strSQL = "SELECT * FROM comments where portal='"&RS("portal")&"' and entryMonth="&Cint(sMonth)&" order by id"
			end if
			if Cint(sMonth) = 99  and tabName1="portals" then
				strSQL = "SELECT * FROM comments where portal='"&RS("portal")&"'"&" order by id"
			end if
		
		    RS2.Open strSQL, Conn
                                    ' process results here namely count of records found

and the error is?

thats the error message

ADODB.Recordseterror '800a0e78'
Operation is not allowed when the object is closed. /busca.asp, line 97