queria ver s me puedes explicar un poquito los pasos
Option Explicit
Dim m_Application As New CRAXDDRT.Application 'aplicacion crystal
Dim m_Report As CRAXDDRT.Report' reporte
Dim FileReport As String' ruta etc
Dim CPProp As CRAXDRT.ConnectionProperty
Dim DBTabl As CRAXDRT.DatabaseTable
Private Sub Form_Load()
FileReport = App.Path & "\Reporte.rpt"
Set m_Report = Nothing
Set m_Report = m_Application.OpenReport(FileReport, 1)
Set DBTabl = m_Report.Database.Tables(1)
DBTabl.Location = DirDataBase
CRViewer1.ReportSource = m_Report
CRViewer1.Zoom 1
CRViewer1.ViewReport
End Sub
Espero que te sirva

[/QUOTE]