Dim MES, AÑO As Integer
Dim FECHa As String
MES = DatePart(DateInterval.Month, Today)
AÑO = DatePart(DateInterval.Year, Today)
fecha = "01/" & mes & "/" & año
CrystalReportViewer1.SelectionFormula = "{Utilidad.fecha}>='" & fecha & "' and {utilidad.fecha}<='" & Today & "'"
CrystalReportViewer1.RefreshReport()