Crystal Report - Problemas con Crystal Report 8.5

Inserto el siguiente codigo para abrir un reporte de Crystal pero al previsualizar me muestra un mensaje de licencias de las APIS y finalmente en el reporte no me muestra ningun dato, alguien por favor podria darma alguna solucion al respecto?

Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report

Private Sub LoadReport()
Dim datCmd1 As ADODB.Recordset
Screen.MousePointer = vbHourglass
mflgContinuar = True

Set crApp = New CRAXDRT.Application
Set crReport = crApp.NewReport
Set crReport = crApp.OpenReport(App.Path & "\Reportes\" & NameReporte & ".rpt", 1)
crReport.DiscardSavedData

Set datCmd1 = New ADODB.Recordset
Set datCmd1.ActiveConnection = Cn
datCmd1.Source = OrigenData1
datCmd1.Open
crReport.Database.SetDataSource datCmd1, 3, 1

CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

Set datCmd1 = Nothing

End Sub