DOCMD.TRANSFERDATABASE VB6 (ACCESS)

RAFAELCAMARAA 15/06/2017 14:33:14
#474541

Pessoal boa tarde,

Em uma única aplicação preciso importar uma tabela do banco1(access) para o banco2(access). Estou tentando fazer isso utilizando o Docmd.transferdatabase porém não estou conseguindo. A importação precisa ser feita dentro da aplicação vb6. Já testei o código pelo vba do access e funciona perfeitamente, porém preciso que isso seja feito através do VB6. Alguém pode me ajudar?

Estou utilizando o access 2013.

Segue abaixo o meu código:

Dim c As New Access.Application (Erro)
Set c = New Access.Application

c.OpenCurrentDatabase (App.Path & [Ô]\BD2.mdb[Ô])
c.DoCmd.TransferDatabase acImport, [Ô]Microsoft Access[Ô], [Ô]C:\Users\Rafael\Desktop\ScriptAtualiza\BD1.mdb[Ô], acTable, [Ô]EnviaCFOPWeb[Ô], [Ô]EnviaCFOPWeb[Ô]
DoEvents
c.CloseCurrentDatabase
Set c = Nothing

Já tentei criando um objeto e também sem criar o objeto, nas duas formas recebo o erro (This Action cannot be completed because the other program is busy. Choose ‘Switch To’ to activate the busy program and correct the problem)

Obrigado,
Rafael