Word, Access: Встава картинок в документ

Private Sub Кнопка6_Click()
    
    Dim Название ' переменная поля
    ' присваиваем переменной значения поля в таблице
    Название = DLookup("[Поле1]", "Таблица1", "[Код] = 1")
    
    'Получаем шаблон из базы данных
    Dim oBOF As BoundObjectFrame
    Set oBOF = Form_Форма1.Рамка
    
    ' присваиваем объекту документ Word из таблицы tbl_вложения
    oBOF = DLookup("[Документ]", "Таблица1", "[Код] = 1")
    oBOF.Verb = acOLEVerbOpen
    oBOF.Action = acOLEActivate
    
    'Получаем ссылки на запущенный нами Word и открытый в нем документ
    Dim oWord As Word.Application
    Set oWord = GetObject(, "Word.Application")
    Dim oDoc As Word.Document
    Set oDoc = oWord.ActiveDocument
    oWord.Visible = True
    oWord.ActiveWindow.WindowState = wdWindowStateMaximize
    oDoc.Activate
    
    ' заполняем закладки в документе
    oDoc.Bookmarks("Закладка").Range.Text = Название
    
'==========================================
'--- Код вставляющий картинку в таблицу ---
'==========================================
 
'    НЕ РАБОТАЕТ!!! собственно говоря и не должен работать
    Dim Рисунок As Variant
    Рисунок = DLookup("[Рисунок]", "Таблица1", "[Код] = 1")
    ActiveDocument.Tables(1).Cell(1, 1).Range.Text = Рисунок
   
End Sub

    ' в Wорде
    Dim Рисунок As Object
    Set Рисунок = DLookup("[Рисунок]", "Таблица1", "[Код] = 1")
    'ActiveDocument.Tables(1).Cell(1, 1).Range.ShapeRange = Рисунок
    Dim Табл As Cell
    Set Табл = ActiveDocument.Tables(1).Cell(1, 1)
    Табл = Рисунок