Amigo,
Se você estiver usando um controle do Crystal no seu relatório, faça o seguinte (antes do cr.action=1)
dim dtini as string
dim dtfim as string
dtini=right(txtdti.text,4) & "," & mid(txtdti.text,4,2) & "," & left(txtdti.text,2)
dtfim=right(txtdtf.text,4) & "," & mid(txtdtf.text,4,2) & "," & left(txtdtf.text,2)
cr.selectionformula="{tabela.campo}>=date(" & dtini & ") and {tabela.campo}<=date(" & dtfim & ")"
É que o cr.selectionformula tem que ficar como no exemplo:
cr.selectionformula="{tabela.campo}>=date(2005,07,25} and {tabela.campo}<=date(2005,07,31)"
para filtrar entre os dias 25 e 31 de julho de 2005 (no caso do exemplo).