Dúvida Foto no Formulário

[Guest AndreAlex]

Olá a todos,

estou criando um formulário idêntico ao de funcionários do Northwind usando o código abaixo:

Sub getFilename()

'Exibe a caixa de diálogo abrir arquivo p/ selecionar foto

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 = trim(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

Copiei todos os controles para inserir foto e tb o código. O problema é que na linha em negrito ocorre a seguinte mensagem de erro:

Erro em tempo de execução '-2147467259 (80004005)':

O método 'Filedialog' do objeto Application' falhou

Passando o mouse em cima de (msoFiledialogFilePicker) no código, aparece a mensagem:

msoFiledialogFilePicker = vazio

Alguém sabe como solucionar isto???