Problema con paginación y sqlserver

Hola os adjunto un código de mi paginación,
tengo un error, no se como abrir la conexion de sql server con los cursores...
a ver si me lo podeis solucionar

<%
Dim Conex
Set Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open "driver={SQL Server};server=OFI0924; database=neteja;
uid=neteja;pwd=neteja"

SQL = "exec sp_tipus_treballador_s"
Set rs = Conex.execute(sql) 'aquí ejecuto la query y la conex ya esta
abierta

rs.PageSize=TamPagina
rs.CacheSize=TamPagina

rs.Open SQL, Conex, 1, 2 'esto esta mal, ya tengo la conex abierta, pero
no se como solucionarlo ??

PaginasTotales=rs.PageCount

if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then

Response.Write("No hi han registres a la base de dades.")

else

rs.AbsolutePage=PaginaActual

end if

%>