Ayuda, problema con Access y ASP

[Adriangd7]

Hola a todos!
Mi problema es el siguiente, tengo una base de datos Access y mediante ASP tengo que realizar una serie de consultas, pues me pasa algo muy extraño porque la primera consulta si la realiza, pero luego las demas me da este error "Provider (0x80004005) Error no especificado", pero si esperas unos minutos y refrescas la pagina te muestra el contenido bien sin el error, nose si me explico.
Por si os sirve de algo yo he creado un ODBC y la cadena de conexión que utilizo es la siguiente:
function abrirConexionAccess(byref objConexionAccess)
Set objConexionAccess = Server.CreateObject ("ADODB.Connection")
objConexionAccess.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseDatos/datosrem.mdb")
end function
El error lo da justo en esta línea: objConexionAccess.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseDatos/datosrem.mdb")
Si necesitais algun dato mas pedirmelo.
Un saludo y gracias

[Wasper]

Seria bueno ver el codigo, ya que puede ser algun bucle o condicion mal planteada...

[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

[Adriangd7]

Os lo pongo mas detalladamente.

Vamos por partes tengo una función donde creó la conexión a la base de datos, es la siguiente:

Código ASP:

function abrirConexionAccess(byref objConexionAccess)           
        Set objConexionAccess = Server.CreateObject ("ADODB.Connection")
        objConexionAccess.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseDatos/datosrem.mdb")
    end function
 

Tengo otra función que es para cerrar la conexión, que es la siguiente:

Código ASP:

function cerrarConexionAccess(byref objConexionAccess)
        objConexionAccess.Close
        Set objConexionAccess = Nothing 
    end function
 

Llamo a la función parar crear la conexión:

Código ASP:

dim objConexionAccess   
call abrirConexionAccess(objConexionAccess)
 

Y luego ya está la función donde cojo los datos de la base de datos:

Código ASP:

function buscarPorInstalacion()     
        dim queryAccess, query, queryAux, rsconsulta, rsconsultaAux ,rsconsultaAccess, registros, horaPrin, horaFin
        horaPrin=Request.Form("horaPrinc")
        horaFin=Request.Form("horaFiin")
        if (horaPrin = "") then
            horaPrin = "00:00"
        end if
        if (horaFin = "") then
            horaFin = "23:59"
        end if      
        %>
        <table border="1" bordercolor="#000000" style="font-family:Verdana, Arial, Helvetica, sans-serif; color:#000000; font-size:8pt; border-style:ridge; border-width:1px;" cellspacing="0" cellpadding="0" align="center">      
        
        <tr>
            <td style="font-weight:bold; background-color:#7CC2FC; padding:3px; " align="center">
                Instalación
            </td>
            <td style="font-weight:bold; background-color:#7CC2FC; padding:3px; " align="center">
                Huerta
            </td>
            <td style="font-weight:bold; background-color:#7CC2FC; padding:3px; " align="center">
                Fecha
            </td>
        </tr>           
        <%
        if Request.Form("Instalacion") = 0 then
            queryAux="select * from correspondencia"    
        else        
            queryAux="select * from correspondencia where id_instalacion='" & trim(Request.Form("Instalacion")) & "'"           
        end if
        set rsconsultaAux=server.CreateObject("ADODB.Recordset")        
        rsconsultaAux.open queryAux, objconexionAux
        while not rsconsultaAux.eof 
            if Request.Form("Medida") = 1 then
                queryAccess="select TOP 10 * from " & trim(rsconsultaAux.fields(1)) & "PM1Tm2"                  
            else
                if Request.Form("Medida") = 2 then
                    queryAccess="select TOP 10 * from " & trim(rsconsultaAux.fields(1)) & "PM1Tm1"                      
                else
                    if Request.Form("Medida") = 3 then
                        queryAccess="select TOP 10 * from " & trim(rsconsultaAux.fields(1)) & "PM1Tm1"                          
                    end if
                end if
            end if
            if Request.Form("fechaPrinc") <> "" then
                queryAccess=queryAccess & " where FECHA>=#" & fechaBD(Request.Form("ocufechaPrin")) & " " & horaPrin & "#"
            end if  
            if Request.Form("fechaFiin") <> "" then
                queryAccess=queryAccess & " and FECHA<=#" & fechaBD(Request.Form("fechaFiin")) & " " & horaFin & "#"
            end if      
                        Set rsconsultaAccess = objConexionAccess.Execute(queryAccess)               
                        while not rsconsultaAccess.eof
                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"><%=rsconsulta.Fields(2).Value %></TD>
                    <td style="padding:3px; background-color:#7CC2FC; border-right:none;" align="center"><%=rsconsultaAux.Fields(2).Value %></TD>
                    <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>
                    <td style="padding:3px; background-color:#7CC2FC; 
                </TR>   
        <%  
                rsconsultaAccess.MoveNext               
                rsconsulta.Close
        wend
        rsconsultaAccess.Close      
        rsconsultaAux.MoveNext
    wend
    Response.Write("</table>")  
    
    end function
 

El problema es que la primera consulta la hace perfectamente, pero a partir de la siguiente me da el error, pero si esperas unos minutos y actualizas la página te muestra el resultado correctamente.
Un saludo