اشکال در نمایش عکس در کریستال ریپورت10

با سلام به اساتید:
برنامه ای با vb6 نوشتم که یه عکس رو توی کریستال ریپورت نشون میده برای اولین بار مشکلی نداره ولی برای بار دوم
run time error 445
object doesn't support this action
میده ممنون میشم راهنماییم کنید
با تشکر

سلام فکر باید بعد از هر بار Load مقدار مفیلد رو Null کنید.
امتحان کنید احتمالا جواب بده.

ای کار رو انجام دادم
کد برنامه ام:

Private Sub section3_Format(ByVal pFormattingInfo As Object)



    

   'Dim Bmp As StdPicture



    With Section3.ReportObjects



       If Dir$(.Item("PicAdres1").Value) = Empty Then

            Set Bmp = LoadPicture



        Else

            Set Bmp = LoadPicture(.Item("PicAdres1").Value)



        End If



        Set .Item("Picture2").FormattedPicture = Bmp



    End With



    Set Bmp = Nothing



End Sub



Private Sub Form_Load()

Me.Top = (Screen.Height - Me.Height) / 2

    Me.Left = (Screen.Width - Me.Width) / 2

   ''''''''''''''''''''''''''''''''''''''''''''''''''  '''''''''''

    Set CrRep = CrApp.OpenReport(App.Path & "\Cart.rpt")

    For Each crDBtable In CrRep.Database.Tables

        crDBtable.ConnectionProperties.Item("Data Source") = App.Path & "\TermBank\Temp\temp.mdb"

    Next

  '''''''''''''''''

 Set Section3 = CrRep.Sections.Item(3) ' 3 For Detail Section

 

    CRG.ReportSource = CrRep

    CRG.ViewReport

    CrRep.DiscardSavedData

'''''''''''''''''''''''''

End Sub

با سلام ديشب من هم همين مشكل رو داشتم اما بعد 2 ساعت به نتيجه رسيدم بايد بعد اجرا اول براي فراخواني دوم كد زير رو بنويسي

Set Section3 = Nothing

مي توني تو يك command بنويسي
مشكل حل مي شه
موفق باشيد