Funcion para conexion a la base de datos...

[Neuron_376]

Prueba asi.. tienes error logico.

function connect_to(database)

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

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

set connect_to = conn

end function

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

Si eso aun marca error, prueba asi...

set conn = connect_to(database)

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

Bueno, por lo menos en cuestion de como pasar el valor del objeto con eso se arregla, no mire si tienes otros errorcillos.

Y bueno, si es muy util tener una funcion que te hace todo el trabajo de la conexion, no comparto contigo tener la base de datos como variable, pero es posible porque yo uso DSN y no lo necesito, pero me parece bien que tengas esa funcion central.

Suerte!!