error 800a0bb9

[calakra]

gracias alos que contestaron, pues ese problema ya quedo y sin usar el "Adovbs.inc" y de verdad no se que fue lo que salio bien, aun asi les dejo el codigo qde como quedo al final, pero aqui ya surgio otro problema.

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo: '-20'

aqui les dejo el codigo

sql = "" & _
"SELECT * from paciente;"
response.Write(sql)
Set cn = Server.CreateObject("ADODB.CONNECTION")
cn.open str

Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = resultados
rs.CacheSize = resultados

rs.Open sql, cn, 3, 1
paginas = rs.PageCount++++++++++++linea del probema
registros = rs.RecordCount


pues aqui quees lo que pasa que rs.PageCount y rs.RecordCount son numeros negativos, y son para saber en que pagina estoy (la pagina es para paginacion de registros) y la cuenta de los registros por pagina. me salen numeros negativos con valores de "-1" la tabla no es muy grande aun por qeu estoy en pruebas, tienen 3 registros espero me puedan ayudar.