' Картинки должны иметь имя 1.bmp, 2.bmp ...
' Пример загрузки картинок даны в файле la_report1.mdb
'
Public Function funParserIndex(Number As Long)
    Dim img As String
    For i = 0 To Len(Number)
        img = Mid(Number, i + 1, 1) & ".bmp"
        ctrl(i).Picture = Application.CurrentProject.Path & "\" & img
    Next
End Function

1. В отчете надо заранее выделить место для 6 картинок (можно вставить простой индекс 123456). Если не выделить место под картинки, то добавить их потом будет невозможно. Надо будет отчет окрывать в режиме конструктора.

2. После того, как место определено, на этапе форматирования отчета определить картинки, т.е. менять ссылки в зависимости от цифры