Hola..mira lo q podrias hacer seria asi:
con la clausula SelectionFormula
dim fecha1 as date
dim fecha2 as date
fecha1=cdate(fecha1.text)
fecha2=cdate(fecha2.text)
dia1=Day(fecha1) 'lo q trato de hacer aca es descomponer la fecha para q el c
mes1=Month(fecha1) 'cristal la toma bien
agno1=Year(fecha1)
dia2=Day(fecha2) ' se supone q en fecha1 y fecha2(text) tengo fechas validas
mes2=Month(fecha2)
agno2=Year(fecha2)
CR1.SelectionFormula="{Cliente.FechaAlta} in Date(" & Agno1 & ", & mes1 & ","_
& dia1 & ") to Date (" & Agno2 & ", & mes2 & "," & dia2 & ")
Bueno..esto te filtra por el rango de fechas seleccionadas dinamicamente.....perdona la sintaxis o si no fui muy claro....espero q te halla servido
Saludos