[Resolvido]Atualizar vinculo com excel - VBA

Boa tarde Pessoal,

Estou criando um BD para controle de algumas informações e quem vai usar no dia a dia não tem conhecimento  de Access.
Esse BD busca informacoes de planilhas .xlsm que estão na rede, separadas por ano e mes. Porém pra que o usuário não tenha que ir até as tabelas e alterar o vinculo na mão criei um formulário onde ele seleciona o ano e o mês e o VBA atualiza o vinculo.

Nunca fiz isso antes e pelo que pesquisei em alguns lugares da pra fazer da seguinte forma:

Código:

Private Sub Comando99_Click()

   Dim cdb As DAO.Database
   Set cdb = CurrentDb
   Dim ano As Integer
   Dim mes As String
   
   mes = Me.txtmes
   
   If Me.quadro = 1 Then
       
       ano = 2020
   
   Else
   
       ano = 2021
   
   End If
   
   'aqui eu encurtei o caminho na rede p/ postar. o erro não é pelo ip q está errado rsrs
    cdb.TableDefs("BASE_JUNCAO").Connect = "\\192.\Cadastro\" & ano & "\" & mes & "\base_geral.xlsm"
    cdb.TableDefs("BASE_JUNCAO").RefreshLink
    Set cdb = Nothing

End Sub

Quando vai executar a parte " cdb.TableDefs("BASE_JUNCAO").RefreshLink" ele apresenta o seguinte erro:

"ERRO NO TEMPO DE EXECUÇÃO '3170': NÃO FOI POSSIVEL LOCALIZAR O ISAM INSTALAVEL. "


Alguem sabe como posso corrigir esse erro ou outra forma de atualizar esse vinculo por vba?


Obrigada!

Pessoal resolvi com da seguinte maneira:

Código:

DoCmd.TransferSpreadsheet acLink, 8, "BASE_JUNCAO", "\\192..........", True, ""