Ayuda, problema con Access y ASP

[Adriangd7]

El código es un poco lioso porque tengo que mezclar 3 bases de datos 2 sql server y la de access, pero bueno os pongo el código de la conexion de access.
Primero creo la conexion:
dim objConexionAccess
call abrirConexionAccess(objConexionAccess)

queryAccess=select TOP 50 * from 00025PM1Tm2 where FECHA>=#2010-08-01 10:00# and FECHA<=#2010-08-01 10:30#
Set rsconsultaAccess = objConexionAccess.Execute(queryAccess)
while not rsconsultaAccess.eof
queryAux="select * from correspondencia where id_tarsys='" & trim(Request.Form("ocuHuerta")) & "'"
set rsconsultaAux=server.CreateObject("ADODB.Recordset ")
rsconsultaAux.open queryAux, objconexionAux
query="select * from INSTALACIONES where ID_INSTALACION=" & rsconsultaAux.Fields(4)
set rsconsulta=server.CreateObject("ADODB.Recordset")
rsconsulta.open query, objconexion
%>
<TR>
<td style="padding:3px; background-color:#7CC2FC; border-right:none;" align="center"><%=rsconsultaAccess.Fields(0).Value %></TD>
<td style="padding:3px; background-color:#7CC2FC; border-right:none;" align="center"><%= rsconsultaAccess.Fields(1).Value %></TD>
<td style="padding:3px; background-color:#7CC2FC; border-right:none;" align="center"><%= rsconsultaAccess.Fields(2).Value %></TD>
<td style="padding:3px; background-color:#7CC2FC; border-right:none;" align="center"><%= rsconsultaAccess.Fields(3).Value %></TD>

</TR>
<%
rsconsultaAccess.MoveNext
rsconsultaAux.Close
rsconsulta.Close
wend
rsconsultaAccess.close

Un saludo