Funcion para conexion a la base de datos...

[mariano_donati]

Hola, tengo la función está que les dejo para conectarme a la base de datos, cuando creo un RS de esta forma anda:

set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "SELECT * FROM Productos", connect_to("Tienda")

Pero si hago esto otro:

set RS = connect_to("Tienda").Execute("SELECT * FROM Productos")

Me da este error:

Se requiere un objeto: '[string: "Provider=MSDASQL.1;E"]

Por que puede ser?

Les dejo la función. Saludos. Suerte!

function connect_to(database)

ruta = Server.MapPath(database&".mdb")

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & ruta

connect_to = conn

end function