olá preciso ajuda com esse código, tenho um campo no relatorio chamadp  Query.datavenc, e queria fazer uma listagem neste relatorio em um intervalo de datas, acontece que ele retorna um erro dizendo que eh requerido uma string em um determinado lugar na formula espero que me ajudem... SEGUE ABAIXO A FORMULA:

Private Sub Command1_Click()

Dim diai
Dim mesi
Dim anoi
Dim diaf
Dim mesf
Dim anof

diai = Day(txtdata1)
mesi = Month(txtdata1)
anoi = Year(txtdata1)

diaf = Day(txtdata2)
mesf = Month(txtdata2)
anof = Year(txtdata2)

CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = "C:Documents and SettingsAdministradorDesktopCPagarCReceber.rpt"

CrystalReport1.SelectionFormula = "{query.datavenc} >= CDate(" & anoi & "," & mesi & "," & diai & ") and " & _
"{query.datavenc} <= CDate(" & anof & "," & mesf & "," & diaf & ")"

CrystalReport1.Action = 1

End Sub

Você não pode passar Cdate para o Crystal, passe apenas Date

exemplo de filtro por código do cliente e data de vencimento:

 

.SelectionFormula = "(({R~Relcrecp.Codigo do cliente} = " & Str$(Vcliente) & ") AND ({R~Relcrecp.Vencimento} >= Date(" & Year(CDate(Vdata1)) & " , " & Month(CDate(Vdata1)) & " , " & Day(CDate(Vdata1)) & ")) AND ({R~Relcrecp.Vencimento} <= Date(" & Year(CDate(Vdata2)) & " , " & Month(CDate(Vdata2)) & " , " & Day(CDate(Vdata2)) & ")))"