.Reports.Item("rptDalePassport1").Picture1.Picture = "D:\1\A.jpg"
        .DoCmd.Close
        .DoCmd.OpenReport "rptDalePassport1", acViewPreview, , "ID=1"

Const conMDB = "dbTest.mdb"

Private Sub HandleAccessReport()
    Dim accApp As Access.Application

    Set accApp = New Access.Application

    With accApp
        .OpenCurrentDatabase filepath:="D:\My Databases\" & conMDB, _
          Exclusive:=True

           If Not .UserControl Then
              .Visible = True
           End If

        .DoCmd.OpenReport ReportName:="rptDalePassport1", View:=acViewDesign
        .Reports("rptDalePassport1").Picture1.Picture = "D:\1\A.jpg"
        
        ' Так работает.
        
        '.DoCmd.Close ObjectType:=acReport, ObjectName:="rptDalePassport1", _
        '  Save:=acSaveYes
        '.DoCmd.OpenReport ReportName:="rptDalePassport1", _
        '  View:=acViewPreview, WhereCondition:="[ID]=3"
        
        ' Попробуй еще так.
        
        .DoCmd.OpenReport ReportName:="rptDalePassport1", View:=acViewPreview
        .Reports("rptDalePassport1").Filter = "[ID]=3"
        .Reports("rptDalePassport1").FilterOn = True
    End With
End Sub