Программирование на Visual Basic

07. 2 примера, один добавление из таблицы, а другой из файла показывают как можно внести в отчет логотипы и т.п.

' Из файла
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
    Me.picFromFile.Picture = Application.CurrentProject.Path  _
                 "\"  Me.Рисунок
End Sub

'  Вставить рисунок из таблицы sTable
Private Sub InsertPicture(ctrl As Control, sTable As String)
Dim dbs As Database, rst As Recordset
    On Error GoTo 999 'Обработка ошибки
    Set dbs = CurrentDb 'Текущая база данных
    Set rst = dbs.OpenRecordset(sTable) 'Открываем таблицу
    If rst.RecordCount  0 Then
        rst.MoveLast  'Заполняем запрос
        rst.MoveFirst 'Устанавливаем позицию
        ctrl.Picture = Application.CurrentProject.Path  _
                 "\"  rst!Рисунок  'Полное имя файла
    End If
    rst.Close
999:
    Err.Clear 'Сброс ошибки
End Sub