[Resolvido]Vincular tabelas anexadas com senha (back end)

Prezados,

Tenho em meu banco frontend uma função que relinka os dados do backend.Se o usuário move os 2 arquivos de lugar ao abrir o FrontEnd é perguntado onde se encontram as tabelas do BackEnd e então nova anexação acontece.

Gostaria de colocar uma senha no meu backend, teria então de alterar minha linha abaixo mas estou tendo dificuldades.

Set db = CurrentDb
Set tb = db.OpenRecordset("tb_Conectatb")
InstalDir = DLookup("[Dir_install]", "tb_Config", "[Dir_install]") & "\"

Do While Not tb.EOF
DoCmd.DeleteObject acTable, tb!Tabela

'relinka onde nome tabela na tb_Conectatb inicia com tb_ que estão no back@
If Left(tb!Tabela, 3) = "tb_" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & "back@.accdb", acTable, tb!Tabela, tb!Tabela, False

'relinka onde nome tabela na tb_Conectatb inicia com tb que estão no diretório/pasta do aplicativo
ElseIf Left(tb!Tabela, 2) = "tb" Then

DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & tb!Tabela & ".accdb", acTable, tb!Tabela, tb!Tabela, False
End If
tb.MoveNext
Loop
tb.Close

Acredito que a senha deva ser colocada na linha de "DoCmd.TransferDatabase acLink" , tentei mas não deu certo.
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & tb!Tabela & ".accdb", acTable, tb!Tabela, tb!Tabela, ,"PWD=1234;"


agradeço a todos a atenção

Prezado Avelino, mais uma vez obrigado pela ajuda. Adaptei com sucesso no meu BD a sua resposta!