Prueba con esto, me funcionó usando Crystal Report 9 y solo agregando un control CRViewer9
Option Explicit
Dim m_Application As New CRAXDDRT.Application
Dim m_Report As CRAXDDRT.Report
Dim FileReport As String
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
