A ver si te sirve esto.
Conexion = "Provider=SQLOLEDB;" & _
"Data Source=127.0.0.1;" & _
"User id=sa;" & _
"Initial Catalog=Revista"
'PROCEDIMIENTO ALMACENADO QUE
'MUESTRA LOS REGISTROS QUE SON SUPERIORES AL ID DE 900
cadena = "sp_Consulta 900"
Set rs = New ADODB.Recordset
'estableciendo parametros de consulta
rs.CursorLocation = adUseServer
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
'ABRE LA CONEXION PARA RECORDSET
rs.Open cadena, Conexion
'ESTABLECIENDO PARAMETROS PARA LA PAGINACION
rs.PageSize = 10
rs.CacheSize = 5
rs.AbsolutePage = 1
'DESPUES MUESTRO ESTE RECORDSET
'ME MUESTA OK.
'************************************************* ***'PERO LO QUE DESEO ES LLAMAR AL PROCEDIMIENTO ALMACENADO
'CON UN : ADODB.Command
' ADODB.Parameter
'PARA CAMBIAR CIERTOS PARAMETROS DE LA LA LLAMADA Y
'DESPUES PAGINAR ESTE RESULTADO COMO EL TIEMPO DE ESPERA
'************************************************* ***'PARA ELLO HAGO ESTO
Set cn = New ADODB.Connection
Conexion = "Provider=SQLOLEDB;" & _
"Data Source=127.0.0.1;" & _
"User id=sa;" & _
"Initial Catalog=Revista"
'ABRE LA CONEXION
cn.Open Conexion
'CREA UN OBJETO COMMAND Y ACTIVA CONEXION
Set cm = New ADODB.Command
Set cm.ActiveConnection = cn
'PARAMETROS PARA EL COMMANDO A EJECUTAR
cm.CommandType = adCmdStoredProc
cm.CommandText = "sp_Consulta"
cm.CommandTimeout = 60
' DEDINE EL PARAMETRO DE ENTRADA DEL PROCEDIMIENTO
' ALMACENADO.
Set pr = New ADODB.Parameter
pr.Type = adInteger
pr.Size = 4
pr.Direction = adParamInput
pr.Value = 900
cm.Parameters.Append pr
'CREA UN OBJETO RECORDSET para despues paginarlo
Set rs = New ADODB.Recordset
'ESTABLECIENDO PARAMETROS PARA EL RECORDSET
rs.CursorLocation = adUseServer
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
'EJECUTO EL COMMANDO ASOCIANDO AL RECORDSER
set rs=cm.Execute
'QUIERO PAGINAR COMO LO HICE ANTERIORMENTE
'ESTABALECIENDO LOS PARAMETROS
rs.PageSize = 10
rs.CacheSize = 5
rs.AbsolutePage = 1
'PERO ME DA UN ERROR Y SE PLANTA
'EN EL PARAMETRO AbsolutePage
y si no visita el foro de SQL de
www.sqlmax.com
Suerte