Изображения - Добавление ссылок на изображения в базу MS Access (+ Пример)

Всё достаточно просто и стандартно.

За отображение картинок в списке отвечает следующая функция:

Public Function PictureLocalPath(sSubFolder As String, sPicFileName As String) As String
Dim s As String
' Возвращает путь к картинке
'--------------------------------------------------------------------
On Error GoTo PictureLocalPath_Err
    s = CurrentProject.Path
    PictureLocalPath = CurrentProject.Path & "\" & sSubFolder & "\" & sPicFileName
    'Debug.Print PictureLocalPath
PictureLocalPath_Bye:
    Exit Function

PictureLocalPath_Err:
    PictureLocalPath = ""
    Resume PictureLocalPath_Bye
End Function

Я позволил себе вложить несколько "увесистих" ВаллПапыров - потому размер ТАКОЙ, а само приложение микроскопическое.
Просто - Если уж выкладывать картинки, то пусть это будет нечто полезное в хозяйстве.

MSA-2003 (4 050 kB) Пример