06. Этот метод показывает Вам как отобразить рисунок в форме, но не хранить его в таблице базы.
'==============================================================
' Изменение рисунка
Private Sub Form_Current()
Dim s As String
On Error GoTo 999
s = Application.CodeProject.Path 'Каталог программы
myPicture.Picture = s "\" Me.Рисунок 'Вставляем новый рисунок
Me.Рисунок.Visible = False 'Гасим рисунок
Exit Sub
999:
Err.Clear
Me.Рисунок.Visible = True 'Показываем поле
myPicture.Picture = "" 'Нет рисунка
End Sub