Exibe a caixa de diálogo Abrir arquivo

Estou precisando da ajuda de quem conhece muito do Access (tenho um cadastro de funcionários e gostaria de colocar uma foto no mesmo, mas não quero que esta foto venha como anexo ou uma imagem ole, quero que seja inserido na tabela o caminho onde estou buscando a imagem, consegui criar todos so codigos, porem este abaixo que deveria abrir a caixa de dialogo para selecionar a imagem esta com um erro que não consigo identificar, será que alguem pode me ajudar?, ficarei grato).

Estou enviando o arquivo para que entenda melhor, a foto será inserida no Formfuncionarios, o usuario de login é "admilson" e a senha pode ser "teste".

Sub getFileName()
   ' Exibe a caixa de diálogo Abrir arquivo a fim de escolher um nome
   ' de arquivo para o registro de funcionário atual. Se o usuário
   ' selecionar um arquivo, essa função exibe-o no controle de imagem.
   Dim fileName As String
   Dim result As Integer
       
   With Application.FileDialog(msoFileDialogFilePicker)
       .Title = "Selecionar foto de funcionário"
       .Filters.Add "Todos os arquivos", "*.*"
       .Filters.Add "JPEGs", "*.jpg"
       .Filters.Add "Bitmaps", "*.bmp"
       .FilterIndex = 3
       .AllowMultiSelect = False
       .InitialFileName = CurrentProject.path
       result = .Show
       If (result <> 0) Then
           fileName = (.SelectedItems.Item(1))
           Me![ImagePath].Visible = True
           Me![ImagePath].SetFocus
           Me![ImagePath].Text = fileName
           Me![Nome].SetFocus
           Me![ImagePath].Visible = False
       End If
   End With
End Sub

Talvez esse exemplo ajude
http://maximoaccess.forumeiros.com/t10008-colocar-foto-em-formulario#80006

Bom dia,

Após testar a sua BD ela também me deu erro, e verifiquei que faltava a referencia do "msoFileDialogFilePicker".
Adicionei essa e ficou a funcionar 5*.