eu uso assim, para filtrar periodos d data no crystal 8.5... acho q nao muda pro 9
veja:
Dim Formula2 As String
Formula2 = ""
Formula2 = "({CadSaidaMat.DataSaida} >= DATE(" & Mid$(Text1.Text, 7, 4) & "," & Mid$(Text1.Text, 4, 2) & "," & Mid$(Text1.Text, 1, 2) & "))"
Formula2 = Formula2 & " AND ({CadSaidaMat.DataSaida} <= DATE(" & Mid$(Text2.Text, 7, 4) & "," & Mid$(Text2.Text, 4, 2) & "," & Mid$(Text2.Text, 1, 2) & "))"
.SelectionFormula = Formula2
pronto... testa ai