Conexión mediante includes a access 2000

Hola!. Tengo un problemilla con la conexión a una base de datos en access. Tengo un include con las conexiones, comandos, creación de recordset, etc.. Y utilizando este no funciona nada, ni da errores ni a salta el debugger, y si lo saco fuera del include, da error en el objeto comando, llevo varios días dándole vueltas y no veo el fallo.
Lo siento, no se como va esto, te envío las funciones que estoy utilizando y a lo mejor tienes alguna forma más sencilla de decirme como:
dim DBConn
sub IniciaConexion()
set DBConn = Server.CreateObject("ADODB.Connection")
WITH DBCONN
.ConnectionTimeout = 15
.CommandTimeout = 30
.CursorLocation = 3
'.Open ( "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=People;Data Source=SERINTERDEV;Connect Timeout=15;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" )
--Esta es la que estoy utilizando, me he creado una udl, pero estoy aconstumbrada a Sql y access no se si soporta las mismas cosas
.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=as;Data Source=DatosZanca;Initial Catalog=C:\Zanca\DatosZanca"
END WITH
end sub
---Esta siguiente funcion es utilizada para crear recordset
function CreaRs(filtro,RsSalida)
dim cmdTmp
set cmdTmp = Server.CreateObject("ADODB.Command")
--- y normalmente el error salta en esta línea
cmdTmp.ActiveConnection = DBConn
set RsSalida.Source = cmdTmp
cmdTmp.CommandType = 1
cmdTmp.CommandTimeout = 200
cmdTmp.CommandText = filtro
RsSalida.CacheSize = 10
RsSalida.CursorType = 3
RsSalida.CursorLocation = 3
RsSalida.LockType = 3
'ON ERROR RESUME NEXT
RsSalida.open (cmdTmp)
if Err then
CreaRs= -1
end if
end function