Crystal Report - ayudaaaaaaaa!

Option Explicit

Dim Report             As CRAXDRT.Report

Dim CRapp           As New CRAXDRT.Application

Private WithEvents oSection As CRAXDRT.Section

Dim pic1                As OLEObject

Dim I                       As Integer

Private Sub Form_Load()

    Set Report = CRapp.OpenReport(App.Path + "\ElReporte.rpt")

    Set oSection = Report.Sections("D")

    For I = 1 To oSection.ReportObjects.Count

        If oSection.ReportObjects(I).Kind = CRAXDRT.crOLEObject Then

            Set pic1 = oSection.ReportObjects(I)

        End If

    Next I

    CrystalActiveXReportViewer1.ReportSource = Report

    CrystalActiveXReportViewer1.ViewReport

End Sub

Private Sub oSection_format(ByVal pFormattingInfo As Object)

    Set pic1.FormattedPicture = LoadPicture("Aqui va la ruta de la imagen")

End Sub