ای کار رو انجام دادم
کد برنامه ام:
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