SoloCodigo

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