boa tarde..
eu tenho assim mais ele dar um erro 20515

"{JDBVEI.DAT_ENT}'22/07/2008'

A DATE IS REQUIRED HERE

 

    CrystalReport1.WindowTitle = "Relação de Debitos"
    CrystalReport1.SelectionFormula = ""
    CrystalReport1.WindowState = 2               'janela maximizada
    CrystalReport1.WindowControlBox = True       'ativa os botões de controle da janela
    CrystalReport1.DataFiles(0) = App.path & "JDBVEI.DBF"
    CrystalReport1.ReportFileName = App.path & "gever.rpt" 'caminho nome do relatorio
    CrystalReport1.SelectionFormula = "{JDBVEI.DAT_ENT}= '22/07/2008'"      ' & "date(" & Format(txtEnt.Text, "mm,dd,yyyy") & ") "
CrystalReport1.Destination = 0               'imprime na tela
    CrystalReport1.Action = 1                    'inicia impressao

ja consequi com esta dica

"date(" & Format(txtEnt.Text, "mm,dd,yyyy") & ") "