[Resolvido]Atualizar vínculo entre tabelas

Consultei algumas respostas deste fórum para fazer o que preciso, mas ainda não consegui. Então novamente recorro às mentes iluminadas (rs).

Para uma dada aplicação, estabeleci o seguinte critério:
AplicProj.aacdb - meu projeto com formulários, consultas, relatórios e módulos
AplicParam.accdb - Arquivo com tabelas que são atualizadas apenas pela matriz.
AplicDados.accdb - Arquivo com tabelas alimentadas pelas filiais.

Desta forma, qdo preciso atualizar o projeto ou dados da matriz, posso enviar os arquivos às filiais que estes não sobreporão as informações que existem apenas lá (a principio).

Outro detalhe é que para cada filial ou usuário, o caminho para encontrar o banco de dados muda. Então, sempre que atualizo o AplicProj (que busca as tabelas por vinculo) ou envio para nova filial, a vinculação precisa ser refeita.

Eu necessito automatizar esse procedimento de vinculação das tabelas.

Para isto, criei uma tabela com os seguintes campos:
Tabela - Tabela do projeto a ser vinculada
Arquivo - Em que arquivo está fisicamente a tabela
Caminho - Onde se encontra esse arquivo.


Uso um botão para acionar a rotina abaixo, que dá erro:

Código:


Private Sub btn_Atualiza_Click()
Dim Reg As Recordset
Dim tdf As TableDef
Dim vConexao As String

Set Reg = Me.Recordset

Reg.MoveFirst                     '*** Acusa erro aqui!

Do While Not Reg.EOF
    With Reg
            .Flag2 = verdadeiro
            tdf.Name = Tabela
            vConexao = "MS Access;DATABASE=" & Caminho & "\" & Arquivo

            tdf.Connect = vConexao
            tdf.RefreshLink                  
            .MoveNext
    End With
Loop

Set rst = Nothing
End Sub



Alguém pode me ajudar?

Se vc pesquisar na sala de repositório , encontrará exemplos e códigos mais completos pra vincular tabelas.

Abraços,

Ok!

Grato!