Puedes utilizar el siguiente codigo:
CrystalReportViewer1.SelectionFormula = "{Utilidad.fecha}='" & Today & "'"
CrystalReportViewer1.RefreshReport()
Lo que se utiliza es la propiedad SelectionFormula y el evento RefreshReport
pero esto no quita la necedidad de crear un reporte para que funcione tienes que crear un reporte con el asistente ya sea uno que seleccione todos los datoa de la tabla y en base a los campos hacer tus filtros.
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()
En el codigo anterior lo que hago es sacar la utilidad que va del mes actual.
{Utilidad.fecha} <----Es la tabla y el nombre del campo con el cual trabajar el filtro.
