Private Sub Command1_Click()
Dim FechaReporte As Date
Dim DiaReporte As String
Dim MesReporte As String
Dim AoReporte As String
Dim FechaReporteConvertida As String
    El reporte a mostrar es el Ressum2 de la ruta de reportes
    CrystalReport1.ReportFileName = frmMain.Ap_Hist & "Ressum2.rpt"
	se descarta los datos guardados, para que se refresque el reporte con los
  parmetros introducidos
    CrystalReport1.DiscardSavedData = True
	La primera parte de la formula para el reporte es la actividad a mostrar.
    Formula_ra = "{Reservaciones.Actividad} =" & Chr(34) & Combo2.Text & Chr(34) & " and "
    
    FechaReporte = CDate(MaskEdBox1.Text)
    DiaReporte = Mid(MaskEdBox1.Text, 4, 2)
    MesReporte = Left(MaskEdBox1.Text, 2)
    AoReporte = Right(MaskEdBox1.Text, 2)
    FechaReporteConvertida = DiaReporte & "/" & MesReporte & "/" & AoReporte

	La segunda parte de la formula para el reporte es la fecha
    Formula_rb = "{Reservaciones.Fecha} = #" & FechaReporteConvertida & "#"
La tercera parte de la formula para el reporte es la hora
    Formula_rc = "{Reservaciones.Hora} =" & Chr(34) & Combo1.Text & Chr(34) & " and "
Formula completa para el reporte
    Formula_R = Formula_ra & Formula_rc & Formula_rb
Se establece el titulo del reporte
    CrystalReport1.ReportTitle = Combo2.Text & " del Da " & FechaReporte & " - " & Combo1.Text
    CrystalReport1.ReplaceSelectionFormula Formula_R
    CrystalReport1.PrintReport
End Sub
