Bueno, no estoy seguro que esto funcione, pero una función en el sentido extricto, te debería regresar un valor, de tal manera que trata lo siguiente
objConn = connect_to("Tienda")
set RS = ObjConn("Tienda").Execute("SELECT * FROM Productos")
Pero para el caso es lo mismo,
particularmente no entiendo por qué hacer una función para una conexión.
En este mismo foro me parece que hay una función de Lexus, busca en sus mensajes
Salu2,