Private Sub Command1_Click()
Dim FechaReporte As Date
Dim DiaReporte As String
Dim MesReporte As String
Dim AoReporte As String
Dim FechaReporteConvertida As String

    CrystalReport1.ReportFileName = frmMain.Ap_Hist & "Ressum2.rpt"
    CrystalReport1.DiscardSavedData = True
    Formula_ra = "{Reservaciones.Actividad} =" & Chr(34) & Combo2.Text & Chr(34) & " and "
    FechaReporte es el valor que se va a imprimir en el titulo del reporte
    FechaReporte = CDate(MaskEdBox1.Text)
    DiaReporte = Mid(MaskEdBox1.Text, 4, 2)
    MesReporte = Left(MaskEdBox1.Text, 2)
    AoReporte = Right(MaskEdBox1.Text, 2)
FechaReporteConvertida es la fecha para obtener los datos del reporte
    FechaReporteConvertida = DiaReporte & "/" & MesReporte & "/" & AoReporte
    Formula_rb = "{Reservaciones.Fecha} = #" & FechaReporteConvertida & "#"
    ''Formula_rb = "{Reservaciones.Fecha} =#" & txtFecha & "#"
    Formula_rc = "{Reservaciones.Hora} =" & Chr(34) & Combo1.Text & Chr(34) & " and "
    Formula_R = Formula_ra & Formula_rc & Formula_rb
    CrystalReport1.ReportTitle = Combo2.Text & " del Da " & FechaReporte & " - " & Combo1.Text
    CrystalReport1.ReplaceSelectionFormula Formula_R
    CrystalReport1.PrintReport
End Sub
