Declaras :
Dim Rpt As CRAXDRT.Report  ' Guardamos el reporte
Dim cr As New CRAXDRT.Application ' Conexión con Crystal report
     Set Rpt = cr.OpenReport("\\Informe.rpt")
                FrmInformesResultado.CrInforme.ReportSource = Rpt
                Rpt.Database.SetDataSource Rs
                FrmInformesResultado.CrInforme.ViewReport
espero que te sirva