funcion que devuelve rs, no me funciona...

[mariano_donati]

Otra cosa que podrías probar es con lo siguiente: definis una variable en la página, por ejemplo RS, entonces la función en realidad de lo que se encargaría sería de asignarle un objeto RecordSet a esa variable. Pero siempre va a ser mejor, como dice U Goldman, que trabajes con GetRows, no te va a generar ningún error y vas a trabajar de manera más eficiente con los recursos. Te paso un ejemplo para decirte como lo haría yo:

Dim RS

Sub GetRs()
'Código de la conexion
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.Open "Select * From Tu_Tabla", Tu_Conexion
End Sub


Después deberías hacerte otro procedimiento que te libere esos objetos, por eso siempre es mejor trabajar con GetRows, que te desconectas de la base de datos una vez que ya sacaste todos los datos.
Espero que de algo haya servido.
Saludos!.