problemas de paginas

[njhv]

Tengo el siguiente codigo:

SQL = "SELECT * from tblProducts where des_larga like " & "'%" & Request.Form("find") & "%'"
set rs = CreateObject("ADODB.Recordset")
rs.CursorType = 3
rs.Open SQL, "DSN=Franco"
if not rs.eof then
rs.pagesize=12
rs.absolutepage=RSPage
TotalPages=rs.pagecount
end if
if rs.eof then
response.write "El articulo no existe"
end if

do while not rs.EOF
Response.Write "<a href=" + rs("des_corta") + ">" + rs("des_larga") + "</a><Br>"
rs.MoveNext ' Movenext
loop

Lo que se trata es de hacer una busqueda, funciona pero quiero paginar los resultados pero cuando coloco:

if not rs.eof then
rs.pagesize=12
rs.absolutepage=RSPage
TotalPages=rs.pagecount
end if


Me manda el siguiente error:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Que estoy haciendo mal?

Gracias por anticipado.