Consulta com Sub Select

Senhores bom dia!
Estou tendo um problema de performance no access, estou com um select que no sql server funciona perfeitamente, mas no access esta demorando muito para executar
tenho duas tabelas uma com 10 mil linhas e a outra com 25 mil linhas existe um meio de melhorar a performance?
Pois já tentei de tudo!

INSERT INTO SHAREPOINT
(Escritorio,Lcto_Habil,Dt_Emissao,Dt_Vencimento,Dt_Pagamento,Cod, Gproc_PJ,Autor,Processo,C_Custo,C_Caixa,Valor)
SELECT
Distinct Empresa, Codigo,Data_Conta,Data_Vencimento,Data_Pagamento,Codigo_Fornecedor,Documento,Descricao,Observacoes,Centro_Custo,Conta_Caixa,Total
FROM CONTAS_PAGAR AS A
LEFT JOIN SHAREPOINT B ON A.Empresa=B.Escritorio
WHERE
A.Conta_Caixa IN ('2.1.01.09.001','2.1.01.09.002','2.1.01.09.003','2.1.01.09.004','2.1.01.09.005','2.1.01.09.006','2.1.01.09.007')
AND A.DATA_PAGAMENTO IS NOT NULL
AND NOT EXISTS
(SELECT B.Lcto_Habil FROM SHAREPOINT AS B
WHERE (b.Lcto_Habil>=A.Codigo and b.Lcto_Habil<=A.Codigo ))

Boa noite, oseasribeiro, e bem-vindo ao fórum
Provavelmente, a demora decorrerá de estar a invocar a mesma tabela onde os registos vão ser inclusos.
Experimente fazer uma cópia da consulta SHAREPOINT e executar o código de inclusão a partir da tabela-cópia. Após a execução, elimine a cópia

como seria essa copia?
nao tenho dominio do access!

DoCmd.CopyObject , "TabelaCopiada", acTable, "TabelaOriginal"

Não entendi, pode por gentileza colocar no codigo pois nao tenho dominio da ferramenta dai minha demora para compreender.

blz...

Senhores ainda estou com o problema.

Boa tarde,
Insira o código num procedimento dentro dum módulo.
Estude VBA. Temos abordado muitas vezes sobre a aprendizagem nos exemplos disponibilizados, em sebentas, etc.