adodb recordset de tipo firehose

[u_goldman]

Debes establecerlo donde abres el recordset.

Código:

Set conexion = server.CreateObject("ADODB.Connection")
conexion.Open Connection

Set rs = server.CreateObject("ADODB.recordset")

strSql= " select * from Libros" & _
" where validado = 'S' " & _
" and baja = 'N' " & _"

rs.Open strSql, conexion, cursor, cerrojo 

http://www.w3schools.com/ado/met_rs_open.asp

Saludos