Access - INFORMES Y CONSULTAS CON ADO

Public Sub eliminarconsulta(nombreconsulta As String)

'CON ESTO ELIMINO CONSULTAS CON EL MISMO NOMBRE SI EXISTEN

    Dim consulta As Object

       For Each consulta In CurrentData.AllQueries

           If consulta.Name = nombreconsulta Then

             DoCmd.DeleteObject acQuery, consulta.Name

            Exit For

            End If

            Next

End Sub

Public Sub crearconsulta(nombreconsulta As String, instruccion As String)

'PARA CREAR LA NUEVA CONSULTA EN MI BASE DE DATOS CLIENTES

    Dim miconsulta As DAO.QueryDef

        Set miconsulta = CurrentDb.CreateQueryDef(nombreconsulta)

          miconsulta.SQL = instruccion

End Sub

Sub crearmiconsulta()

   Dim miconeccion As New ADODB.Connection

   Dim mirecoset As New ADODB.Recordset

   Dim intru As String

   Dim micconsulta As String

   micconsulta = "miconsulta"

   miconeccion.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Thinkpad\Desktop\CONTABILIDAD1\CUENTAS.accdb;"

   intru = "select * from TCUENTA"

   mirecoset.Open intru, miconeccion, adOpenStatic, adLockOptimistic

   Call eliminarconsulta(micconsulta)

   Call crearconsulta(micconsulta, intru)

   mirecoset.Close

   miconeccion.Close

   Set mirecoset = Nothing

   Set miconeccion = Nothing

   'CUANDO VOY A VER LA CONSULTA ME SALE QUE EL MOTOR DE BASE DE DATOS ACCESS NO ENCUENTRA LA TABLA EL MISMO CODIGO LO HE PROBADO

   'EN LA BASE DE DATOS SERVIDOR Y FUNCIONA PERFECTO PERO EN LA BASE DE DATOS CLIENTE SALE DICHO ERROR

End Sub