Mod_ProcurarArquivo

Ola Avelino
estou tentando usar em meu projeto o função do maestro, procura caminho do banco de dados e o bkp
esta dano erro no Mod_ProcuraArquivo, estou usando o Access 2016 64 bits e o Windows 10 64 bits
O erro esta dano nas duas primeira linhas, se você poder me ajuda Agradeço.


Public Function fncLocalizarArquivo()
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
   With .Filters
       .Clear
       .Add "Banco de Dados", "*.accdb", 1
       .Add "Todos", "*.*", 2
   End With
   .Title = "Selecionar Banco de Dados)"
   .AllowMultiSelect = False
   .InitialFileName = "c:\"
   .InitialView = msoFileDialogViewPreview
   If .Show Then
       fncLocalizarArquivo = .SelectedItems(1)
   End If
End With
sair:
   Exit Function
trataerro:
   fncLocalizarArquivo = ""
   Resume sair:
   
End Function

Ola, o Topico está na sala errada! Destinada apenas a Documentação...


Apensar de não ser o Avelino, segue a solução:
https://www.maximoaccess.com/t25056-backup-interativo#180380