Funktion för paging

Jag försöker göra en pagingfunktion men får inte till det riktigt. Antar att det är något jag missförstått.

' Hämta Recordset med Paging ========================================================
Dim objRs, intPageId, intCurrentPost, intPages
Public Function getPagedRs(strSql, intPageSize)
Dim objConn
Set objConn = getConn()
Set objRs = Server.CreateObject("ADODB.RecordSet")
	
intPageId = request.querystring("page_id")
if intPageId = "" then intPageId = 1
	
With objRs
   .cursorlocation = 3   		
   .open strSql, objConn   		
   If Not objRs.EOF Then
     .pagesize = intPageSize 
     .absolutepage = intPageId 
  End If
End With
	
intPages = CInt(objRs.pagecount) 	
intCurrentPost = 0 	

Set getPagedRs = objRs
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
End Function

Jag försöker hämta recsetet med

strSql = "SELECT id, name, city FROM retailers WHERE " & strMethod & " LIKE '" & sqlFix(Request.Querystring("q")) & "%' ORDER BY " & strMethod
						
Set rs = getPagedRs(strSql, 10)

[B]If rs.EOF Then 'Line 132[/B]

Jag får felmeddelandet

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.
/admin/retailers.asp, line 132