Version using VB6.0, CR10, Msaccess

Dim Appl As New CRAXDRT.Application
Set Appl = CreateObject("CrystalRuntime.Application.10")
Set Report = Appl.OpenReport(App.Path & "\TestReport.rpt")
CRViewer1.ReportSource = Report
CRViewer1.ViewReport

This is the codig i've used . Previosly i was using CR6.0 and was working fine. When i use the above code for CR10 im getting error as Invalid TLV record when the application is installed in client machine.
Can any help me in getting this issue resolved?
THANKS in advance