Добавление картинки (OLE)

[Познающий]

В ВБА я совершенно не разбираюсь, но в сжатые сроки надо сдать курсовой. я спер вба код у борея в примере бд в аксесс для открытия картинки

выглядит он следующим образом:

Private Sub AddPicture_Click()
    ' Для выбора файла с фотографией сотрудника используется
    ' стандартное окно открытия файла Office.
    getFileName
End Sub

Sub getFileName()
    ' Для выбора имени файла с фотографией текущего сотрудника
    ' используется стандартное окно открытия файла Office.
    ' Если пользователь указывает файл, его содержимое
    ' отображается в элементе управления ImageFrame.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выбор фотографии сотрудника"
        .Filters.Add "Все файлы", "*.*"
        .Filters.Add "JPEG", "*.jpg"
        .Filters.Add "Рисунки", "*.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![Имя].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub

Проблемный участок выделен красным цветом а я не могу понять - при нажатии кнопки сообщается:

"run time error '-2147467259 (80004005)':
Method 'FileDialog' of object '_Application' failed"

а я и понять не могу что ему не понравилось в апликайшн и что это вообще такое? в борее перерыл все но апликейшн этот не нашел, значит не ссылается набор букв на чтото (как например функция getFileName я поначалу думал что она встроенная а фиг там)

Буду очень признателен за оказанную помощь =)

[Teslenko_EA]

Здравствуйте Познающий.
ссылаясь на Ваше заявление "..В ВБА я совершенно не разбираюсь.." объясняю:
Application - это собственно само приложение в котором открывается БД.
FileDialog - контрол (элемент управления) входящий в состав MS Office.

для работы с контролом FileDialog требуется подключение к проекту VBA библиотеки офиса - Microsoft Office XX Object Library (ХХ версия),
подключается в редакторе VBA меню Tools / References...
Евгений.

[Познающий]

Спасибо большое))) как только подключил сразу кнопочка нажалась без вопросов))
ток с ImagePath проблема. щас пороюсь мож сделаю
кажется понял) во я смешной)