Ajuda Insert Into em Tabela de Arquivos Diferentes com Senha

Olá amigos deste respeito e magestoso site.
Preciso de uma ajuda dos amigos.

Estou criando uma macro dentro do módulo no Access para copiar todos dados de uma tabela Producao.mdb para uma tabela de outro arquivo Analise.mdb com senha, porém não estou conseguindo.

Arquivo Origem : Producao.mdb
Arquivo Destino : Analise.mdb << este tem senha 123 para abertura
Tabela : LancamentosConsulta
*** A Tabela do arquivo de Origem e Destino são identicas em campos e estruturas.

Sub INSERT()
Dim db As Database
CAMINHO = CurrentProject.Path & "\ANALISE.MDB"
Set db = DBEngine.Workspaces(0).OpenDatabase(CAMINHO, False, False, "MS Access;PWD=123")
SQL = "INSERT INTO LancamentosConsulta in ANALISE.MDB SELECT * from LancamentosConsulta"
db.Execute SQL
db.Close
Set db = Nothing
End Sub

Antecipo cordial agradecimentos.
Obrigado

Boa noite
Tente
SQL = "INSERT INTO LancamentosConsulta in ANALISE.MDB;PWD=senha; SELECT * from LancamentosConsulta"

Gostei da ideia do seu projeto ^^ e nunca tinha tentando antes.
O seu não esta dando certo porque ele considera as informações do "SQL" do mesmo banco de dados

Verifica se desse maneira o código vai te ajudar mais:

Código:

Public Sub ExportTabela()
Dim db As DAO.Database
Dim fileArquivo As String

fileArquivo = Application.CurrentProject.Path & "\ANALISE.mdb"

Set bd = DBEngine.OpenDatabase(fileArquivo, False, False, ";pwd=123")

DoCmd.TransferDatabase acExport, _
    "Microsoft Access", _
    fileArquivo, _
    acTable, _
    "LancamentosConsulta", _
    "LancamentosConsulta"
   
bd.Close
Set bd = Nothing


End Sub

Alexandre Neves
Obrigado por sua colaboração porém tentei fazer conforme sugestão ... mas deu rim , não funfou não.
teria uma nova sugestão se possível.

Obrigado .

Alyson
boa tarde !!!

Gostei da ideia do seu projeto ^^ e nunca tinha tentando antes. <<< Obrigado. a Idéia surgiu porque ele banco esta em produção e esta pesando muito, e tornando o desempenho lento. então tive a idéia de copiar o resultado para outro arquivo , assim o chão de fábrica da empresa não perde desempenho, e os apontamentos de resultados eu busco no outro arquivo...


Obrigado por sua sugestão ....
Embora o código rode, mas ele não não acrescenda dados algum no arquivo destino.

duas observações ....  
1 ) o arquivo origem e destino estão dentro da mesma pasta.
2 )  tem de Ser insert , pois sempre vou acicionar registros novos no destino , em seguida apagar da origem.

Obrigado se puder ajudar-me.

Vendo as razões de implementar tal solução, porque não cria uma ligação permanente à tabela da outra bd (não pesa na bd) e trata-a como da própria bd? É mesmo fácil trabalhar como pretende

Obrigado Alexandre.   Hoje já é feito isso, manualmente, o que pretendo é automatizar esse trabalho, porém o arquivo Origem chega a aumentar de 25 a 27 mb por dia, e o arquivo esta ficando grande, tornando lento, em rede, onde tenho cerca de 30 computadores fazendo apontamentos simultâneas neste mesmo banco de dados de origem... então percebi que se eu deixar uma tabela para eles trabalharem no arquivo origem, e criar uma macro, onde no dia seguinte rodo ela para dar um input para tabela destino. o arquivo origem não passar de 5 megas, porém o arquivo destino está com mais de 400 megas, e aumentando de 25 a 27 megas por dia, com esse numero, já estou tendo problemas no banco...  é por isso que decidi fazer isso....  durante o dia eles trabalham com o arquivo de origem e no dia seguinte eu tiro tudo com a data de hoje -1 da tabela origem e passo para tabela destino dando um insert.
obrigado se puder me ajudar.