Crystal Report - CRVIEWER ERROR

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

Ya tengo la solucion. A quien le sirva:
esta es la conexion que servira para mysql:
CrystalReport1.Connect = "DSN=nombre odbc;UID=user;PWD=password;DSQ=base de datos;"
CrystalReport1.DiscardSavedData = 1
CrystalReport1.ReportFileName = App.Path & "\mi_report.rpt"
filtro concatenado
CrystalReport1.SelectionFormula = "{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") & "#" & _
" and {reserva.check_in} = 'Y'" & _
" and {res_com.comentario} = 'Tarifa Adulto'"

CrystalReport1.Action = 1

El problema de que el servidor no se conectaba con que versión del crystal report se te presentaba.

Gracias

Hola

El problema de que el servidor no se conectaba con que versión del crystal report se te presentaba.

Gracias