Private Sub Form_Current
    .
    .
    .
    If Me.ShowPicture Then
        Call SeePicture(True)
        Call Src
    End If
    .
    .
    .
End Sub

Private Sub ShowPicture_AfterUpdate()
    If Me.ShowPicture Then
        Call SeePicture(True)
        Call Src
    Else
        Call SeePicture(False)
    End If
End Sub

Sub SeePicture(rVal As Boolean)
    Me.BoxPictures.Visible = rVal
    Me.Razvorot_Pachka.Visible = rVal
    Me.Razvorot_Pachka.Locked = Not (rVal)
    Me.Cigarette.Visible = rVal
    Me.Cigarette.Locked = Not (rVal)
End Sub

Sub Src()
    If FileExistL(CStr(Me.EBROM_ID_), CStr(Nz(Me.NOTE_BA, ""))) <> "" Then
        Me.Razvorot_Pachka.OLETypeAllowed = acOLELinked
        Me.Razvorot_Pachka.SourceDoc = Путь
        Me.Razvorot_Pachka.Action = acOLECreateLink
    Else
        Me.Razvorot_Pachka.Value = ""
    End If
    If FileExistC(CStr(Me.EBROM_ID_), CStr(Nz(Me.NOTE_BA, ""))) <> "" Then
        Me.Cigarette.OLETypeAllowed = acOLELinked
        Me.Cigarette.SourceDoc = Путь
        Me.Cigarette.Action = acOLECreateLink
    Else
        Me.Cigarette.Value = ""
    End If
 'FileExistL и FileExistC - прцедуры, которые проверяют существование файла
 
End Sub

Sub Src()
    If FileExistL(CStr(Me.EBROM_ID_), CStr(Nz(Me.NOTE_BA, ""))) <> "" Then
        Me.Razvorot_Pachka.OLETypeAllowed = acOLELinked
        Me.Razvorot_Pachka.SourceDoc = Путь
        Me.Razvorot_Pachka.Action = acOLECreateLink
    Else
        Me.Razvorot_Pachka.Value = ""
    End If
    If FileExistC(CStr(Me.EBROM_ID_), CStr(Nz(Me.NOTE_BA, ""))) <> "" Then
        Me.Cigarette.OLETypeAllowed = acOLELinked
        Me.Cigarette.SourceDoc = Путь
         'А ругается он на вот этой строчке
 
        Me.Cigarette.Action = acOLECreateLink
    Else
        Me.Cigarette.Value = ""
    End If
 'FileExistL и FileExistC - прцедуры, которые проверяют существование файла
 
End Sub

        Me.Razvorot_Pachka.SourceDoc = Путь
        ...
        Me.Cigarette.SourceDoc = Путь

ImageHeight, ImageWidth Properties Example

The following example prompts the user to enter the name of a bitmap and then assigns that bitmap
to the Picture property of the Image1 image control. The ImageHeight and ImageWidth properties
are used to resize the image control to fit the size of the bitmap.

Sub GetNewPicture(frm As Form)
    Dim ctlImage As Control
    Set ctlImage = frm!Image1
    ctlImage.Picture = InputBox("Enter path and " _
        & "file name for new bitmap")
    ctlImage.Height = ctlImage.ImageHeight
    ctlImage.Width = ctlImage.ImageWidth
End Sub