[Resolvido]inserir imagem

Boa tarde !

tenho um formulário de cadastro de material e nele coloquei um campo de anexo para imagem.
Tudo funciona perfeitamente nesta parte do cadastro, a imagem aparece, gera um código para o cadastro, tudo certo.
Porem tenho outro formulário principal aonde eu digito o código do material gerado no cadastro e automaticamente preenche todos os campos indicado pela formula:

Private Sub cboCódigo_AfterUpdate()
Me.txtTrabalho = Me.cboCódigo.Column(1)
Me.txtMaterial = Me.cboCódigo.Column(2)
Me.txtImpressão = Me.cboCódigo.Column(3)
Me.txtTamanhoEtiqueta = Me.cboCódigo.Column(4)
Me.txtTamanhoCorte = Me.cboCódigo.Column(5)
Me.txtMontagem = Me.cboCódigo.Column(6)
Me.txtSetorImpressão = Me.cboCódigo.Column(7)
Me.txtTipoMáquina = Me.cboCódigo.Column(
Me.txtNavalha = Me.cboCódigo.Column(9)
Me.txtProcessoProdução = Me.cboCódigo.Column(10)
Me.txtOBS = Me.cboCódigo.Column(11)
Me.txtAmostra = Me.cboCódigo.Column(12)

End Sub

Sendo que o ultimo campo como anexo não aparece a imagem.
Alguem sabe me dizer o que posso fazer para corrigir ?
Muito obrigado pela atenção.

Sub carrega_foto()

Dim local_imagem As String
Dim cod As String

linha = 2
cod = txt_codigo 'codigo do produto
Sheets("estoque").Select


      Do Until Sheets("estoque").Cells(linha, 1) = ""
           
            If Sheets("estoque").Cells(linha, 1) = cod Then
            Sheets("estoque").Cells(linha, 1).Select
            ActiveCell.Offset(0, 8 ).Select 'colocar a coluna que esta o endereço da imagem
            local_imagem = ActiveCell
           
            On Error Resume Next
            Application.DisplayAlerts = False
           
            Me.Image1.Picture = LoadPicture(local_imagem)
            Image1.PictureSizeMode = fmPictureSizeModeStretch
            Exit Sub
           
            Else
            End If
           linha = linha + 1

      Loop

Obrigado Jozelia !

Irei tentar essa nova alternativa.
Abraços,

Boa tarde....

Existe uma certa diferença entre os VBA do Excel para o Access.

Obrigado pela atenção de todos...