Atualizar vínculo ODBC

Prezados,

Gostaria de atualizar a fonte de dados do ODBC de uma tabela vinculada de forma simples. Procurei na internet e tem vários códigos complexos, que lê tabela a tabela e atualiza, mas preciso apenas para 1 tabela:

Quando clico em cima da tabela aparece a seguinte mensagem...

ODBC;DNS=BI_VER;UID=bi_ver;APP=Microsoft Office 2013;DATABASE=FIN00013;TABLE=dbo.arqpag


Por favor, podem enviar o comando?

Obrigado,

RD

Ola;

Só testando para vermos se funfa;

Código:

'Num modulo vazio cole o seguinte cod e salve com o nome que desejar:

Public Sub RefreshLinkOdbc(Conection As String)
Dim tdf As TableDef
On Error GoTo ControleErros

    For Each tdf In CurrentDb.TableDefs
        If Len(tdf.Connect) > 0 Then
            tdf.Connect = Conection
            tdf.Refreshlink
        End If
    Next tdf
    
    Exit Sub
ControleErros:
    MsgBox "Falha na ligação: " & Err.Description
End Sub

'*****************************************************************************************

'Num botão no seu form, no evento ao efectuar clik, cole:

Call RefreshLinkOdbc ("ODBC;DNS=BI_VER;UID=bi_ver;APP=Microsoft Office 2013;DATABASE=FIN00013;TABLE=dbo.arqpag")

Olá JPaulo,

Criei conforme informado mas quando clico no botão abre a tela de configuração do ODBC, não faz de forma transparente (automática). Tenho que selecionar a conexão e colocar a senha 2 vezes.

Após isso, quando abro a tabela vinculada pede de novo a senha (como se a senha não ficasse gravada).

Sabe se precisa de algum ajuste?

Obrigado,

Rene

Estou com o mesmo problema? Alguém conseguir resolver.

Preciso que indique a Fonte de dados de máquina que instalei automaticamente.

Obrigado