Пример вставки рисунка из файла в поле Ole (в примере [Фото])

Private Sub КнопкаВставитьРисунок_Click()
file = PicName("C:\Ris")

If file <> "" Then
Me![Фото].SourceDoc = file
Me![Фото].Action = acOLECreateEmbed
Else
MsgBox "Не выбран файл!"
End If
End Sub

В модуле
Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As String
lpstrFileTitle As String
nMaxFileTitle As String
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type


Declare Function GetOpenFileName Lib "comdlg32" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long

Public Function PicName(p As String) As String
'p - путь к папке
Dim filebox As OPENFILENAME ' структура для управления диалоговым окном
Dim fname As String ' возвращаемое имя файла
Dim retval As Long ' возвращаемое значение

Dim OFN_PATHMUSTEXIST As Long, OFN_FILEMUSTEXIST As Long


OFN_PATHMUSTEXIST = &H800
OFN_FILEMUSTEXIST = &H1000



' Устанавливаем вид диалогового окна
filebox.lStructSize = Len(filebox) ' размер структуры
filebox.hwndOwner = Application.hWndAccessApp

' дескриптор формы
filebox.lpstrTitle = "Открытие файла" ' текст для заголовка диалогового окна
' Здесь устанавливаем типы файлов
filebox.lpstrFilter = "Фото" & vbNullChar & "*.jpg" & vbNullChar & "Все файлы" & vbNullChar & "*.*" & vbNullChar & vbNullChar
filebox.lpstrFile = Space(255) ' создаем буфер для приема пути и имени файла
filebox.nMaxFile = 255 ' длина буфера
filebox.lpstrFileTitle = Space(255) ' создаем буфер для приема имени файла
filebox.nMaxFileTitle = 255 ' длина для этого буфера
' отображаем существующие скрытые файлы
filebox.flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST
filebox.lpstrInitialDir = p
' Запускаем общее диалоговое окно
retval = GetOpenFileName(filebox)
If retval <> 0 Then ' если все нормально
' удаляем нулевой символ из имени файла
fname = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
PicName = fname
Else
PicName = ""
End If
End Function