Visual Basic - ERROR CRVIEWER

Buenass!
Porque con este codigo:

Dim crAPP2 As New CRAXDRT.Application
Dim Report2 As New CRAXDRT.Report
Set Report2 = crAPP2.OpenReport("c:\proba5.rpt", 1)
Report2.RecordSelectionFormula = "{res_com.fecha_servicio}=#" _
& Format(DTPicker1.Value, "yyyy/mm/dd") & "# And {reserva.fecha_ini}>=#" _
& Format(DTPicker1.Value, "yyyy/mm/dd") & "# And {reserva.fecha_fin}<=#" _
& Format(DTPicker1.Value, "yyyy/mm/dd") & "#"
CRViewer1.ReportSource = Report2
CRViewer1.ViewReport
CRViewer1.Left = 0
CRViewer1.Height = Me.Height - Me.CRViewer1.Top - 500
CRViewer1.Width = ScaleWidth

Screen.MousePointer = vbDefault
Me.CRViewer1.Zoom 75

Cuando abre el formulario me da el error:
''El servidor aún no ha sido abierto"

Gracias de antemano