[Resolvido] Importar Dados de uma BD para outra BD

Boas
Mais uma duvida para os mestres,

tenho uma BD já com alguns anos que agora estive a atualizar, agora eu quero importar os dados das tabelas na BD1 para a BD2, o problema é que algumas das tabelas na BD2 tem novos campos que não existem na BD1.

Duvida, como se faz a importação dos dados neste caso?

desde já muito obrigado.

Código:

Dim rs1 As Recordset, rs2 As Recordset

Set rs1 = DBEngine.Workspaces(0).OpenDatabase("C:\Pastas\DataBase.accdb", False, False, "MS Access;PWD=SenhaSeHouver").OpenRecordset("NomeDaTabela")

Set rs2 = CurrentDb.OpenRecordset("NomeDaTabelaLocal")

Do While Not rs1.EOF
    rs2.AddNew

    rs2!Campo1 = rs1!Campo1
    rs2!Campo2 = rs1!Campo2
    rs2!Campo3 = rs1!Campo3
    ...
    rs2.MoveNext
    rs2.Update
Loop

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs1 é o banco antigo e rs2 é o banco novo, sendo a cópia feita de dentro desse banco novo. Se for fazer diferente, basta inverter.

obrigado criquio, vou testar
2 perguntas
1-este código é para por num botão?
2-tenho de fazer um por cada tabela diferente?

1 - Pode ser;

2 - Pode ser tambem, ou pode declarar tudo junto:

Código:

Dim rs1 As Recordset, rs2 As Recordset, rs3 As Recordset, rs4 As Recordset...

Set rs1 = DBEngine.Workspaces(0).OpenDatabase("C:\Pastas\DataBase.accdb", False, False, "MS Access;PWD=SenhaSeHouver").OpenRecordset("NomeDaTabela1Externa")

Set rs2 = DBEngine.Workspaces(0).OpenDatabase("C:\Pastas\DataBase.accdb", False, False, "MS Access;PWD=SenhaSeHouver").OpenRecordset("NomeDaTabela2Externa")

Set rs3 = CurrentDb.OpenRecordset("NomeDaTabela1Local")

Set rs4 = CurrentDb.OpenRecordset("NomeDaTabela2Local")
...

Se todas as tabelas do banco externo tiverem os mesmos nomes das tabelas do banco loca e todos os campos de todas as tabelas tiverem os mesmos nomes dos campos das tabelas que irão receber esses dados, pode ainda fazer um loop pelas tabelas e dentro desse loop um loop pelos campos de cada tabela e ir importando.

Mais uma vez obrigado Criquio

eu coloquei assim no botão, mas não funciona, apresenta o seguinte erro:

RUN-TIME ERROR '3021':
NÃO EXISTE NENHUM REGISTO ATUAL.

Private Sub Command0_Click()

Dim rs1 As Recordset, rs2 As Recordset

Set rs1 = DBEngine.Workspaces(0).OpenDatabase("E:\access\Teste\Teste_Copiar.mdb", False, False, "").OpenRecordset("tblProdutos")

Set rs2 = CurrentDb.OpenRecordset("tblProdutos")

Do While Not rs1.EOF
rs2.AddNew

rs2!CódigoProduto = rs1!CódigoProduto
rs2!Nome = rs1!Nome
rs2!Und = rs1!Und
rs2!QtdUnd = rs1!QtdUnd
rs2!CustoPadrão = rs1!CustoPadrão

rs2.MoveNext
rs2.Update

Loop

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing
End Sub

Boas
Com a ajuda do meu amigo Duarte Botelho, já resolvi o problema que agora partilho convosco.
Em anexo segue o exemplo que podem adaptar as vossas BDs, podem importar dados de tabela a tabela ou podem importar os dados de todas as tabelas de uma só vez
só tem de dar o caminho correto da BD com os dados e renomear as tabelas no código.

Baixei o exemplo. Gostei muito. Resolve uma necessidade minha! Obrigado e parabéns! "Quando crescer, quero ser como vocês!"