ASP - modularizar creación de objeto recorset y consulta

'Hola, quiero hacer lo siguiente:

<!--#include file="funciones.inc"-->

novedades (n,t)

do While Not rs.Eof
---
'utilizar rs("campos") para mostrar los resultados de la consulta
---


'donde, si nos vamos a funciones.inc nos encontramos con:

<!--#include file="conexion.inc"-->

sub novedades(n, t)

conectar
expSql="SELECT TOP " & n &" * FROM producto WHERE idtipodroducto=" & t & " ORDER BY fecha DESC;"
set rs = conexion.execute(expSql)
end sub

'y si nos vamos a conexion.inc tenemos la subrutina conectar:

sub conectar()
set conexion = Server.CreateObject( "ADODB.Connection" )
conexion.Open( "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + Server.MapPath( "bd/bd.mdb" ))
end sub

El problema es que cuando ejecuto el script me dice:

Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'productos'

Resulta, que si en vez de modularizarlo con subrutinas lo pongo todo en la página principal funciona perfectamente, pero si divido el código en procedimientos como los mostrados antes me sale ese error. No sé por qué el objeto recorset no lo coge. También he probado a utilizar una función que devuelva la variable rs, pero me sigue diciendo lo mismo.... ¿Alguien puede ayudarme???

Gracias de antemano