Anexar tabela

Tenho um formulário onde tenho 3 campos.
O primeiro chamado [caminho] , o segundo [AuxFile] e o terceiro [AuxFile2].
Bom, o me.[caminho] recebe o valor completo de locação de um arquivo accdb.
O me.[AuxFile] recebe o texto de me.[caminho] a partir de "WA" (onde é somente o nome do arquivo sem o local). O me.[AuxFile2] pega o texto de me.[AuxFile] e subtrai 6 a partir da esquerda (nome da tabela).

Bom então o código:

Dim y, strCaminho

y = InStr(Me.[caminho], "WA")

strCaminho = Me.caminho
Me![AuxFile] = Mid$([Nome_DirLocal], y)
Me![AuxFile2] = Left$([AuxFile], Len([AuxFile]) - 6)

DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, Me.AuxFile2, Me.AuxFile2, False

Por exemplo:
Me.caminho=c:\PASTA1\WA_8292839.accdb (onde existe nesse arquivo a tabela: WA_8292839 )
Me![AuxFile]= WA_8292839.accdb
Me![AuxFile2]=WA_8292839

Onde estou errando? Aponto erro no caminho!