Как добавить рисунок в поле Базы данных?

Option Compare Database
'********************************************************************************************************
'Отображение картинки при переходах по записям
Private Sub Form_Current()
On Error Resume Next
If Len(Nz(Me.Фотография, "")) = 0 Then
Me![Pic].Picture = ""
Else
strPath = CurrentProject.path 'Определяем текущий путь
Me![Pic].Picture = strPath & "" & "Foto" & "" & Me![Фотография] 'Отображаем картинку, Foto это папка с картинками
End If
End Sub
'********************************************************************************************************
'Выбор изображение и отображение его на форме
Private Sub AddPic_Click()
On Error Resume Next
    Dim fileName As String
    Dim result As Integer
    Dim i As Integer
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выберите изображение" 'Заголовок
        .Filters.Clear 'Очищаем фильтр
        .Filters.Add "Все файлы", "*.*"
        .Filters.Add "bmp", "*.bmp"
        .Filters.Add "gif", "*.gif"
        .Filters.Add "jpeg", "*.jpeg"
        .Filters.Add "jpg", "*.jpg"
        .FilterIndex = 1
        .AllowMultiSelect = False 'Отключаем множественный выбор
        .InitialFileName = CurrentProject.path 'Путь по умолчанию(текущая папка)
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            i = InStrRev(fileName, "") 'Высчитываем количество знаков до "" файла
              Me.Фотография.Value = Right(fileName, Len(fileName) - i) 'Название файла
            strPath = CurrentProject.path 'Определяем текущий путь
            Me![Pic].Picture = strPath & "" & "Foto" & "" & Right(fileName, Len(fileName) - i) 'Отображаем картинку
        End If
    End With
End Sub
'********************************************************************************************************
'Кнопка удалить фотографию
 
Private Sub Del_Click()
' Очищает строку имени файла для записи сотрудника
    Me![Фотография] = ""
   
End Sub