[Resolvido]Vincular tabelas

Tenho um exemplo(barraVinculo.accdb), disponibilizado pelo mestre Avelino, que tenho tentado utilizar para vincular tabelas no meu projecto.
Acontece que quando abro o projecto vincula-me apenas uma tabela. Haverá algum passo que tenha que dar para conseguir vincular todas as
tabelas?

Luís Antunes

utilizo este exemplo que peguei no forum

Dim Conn As String, tbl As DAO.TableDef

Conn = ";DATABASE=" & "c:\banco\basedados.mdb"

For Each tbl In CurrentDb.TableDefs

If tbl.Attributes = 1073741824 Then
tbl.Connect = Conn
tbl.RefreshLink
End If
Next

Olá a todos,
Luís Antunes, como ficou a situação.
Os membros do fórum merecem e agradecem o retorno.

Caso tenha resolvido, não se esqueça de dar o tópico como tal.
Abraço

sergio
Desculpem a demora em responder.
Acontece que já resolvi o vinculo de tabelas com um outro código.
De qualquer maneira aínda vou utilizar esta dica para ver se funciona

Um pedido de desculpa a ahteixeira e um obrigado ao ségio

Luís Filipe Antunes