Olá Gambet,

 

Eu não uso o Crystal 10, apenas o 8.5, mas o controle que você está se referindo é o CRViewer que substituiu o CrystalReport.ocx. Para trabalhar com ele, acrescente uma referência a biblioteca Crystal Reports ActiveX Designer Run Time Library e use o código abaixo:

 

'Na seção General - declarations

Dim RptApp as CRAXDRT.Application

Dim RptObj as CRAXDRT.Report

 

'Em uma procedure

Set RptApp = New CRAXDRT.Application

Set RptObj = RptApp.OpenReport(<nome do seu relatório>)

 

CRViewer1.ReportSource = RptObj

CRViewer1.ReadRecords

CRViewer1.ViewReport

 

'Quando fechar o Form:

 

Set RptObj = Nothing

Set RptApp = Nothing