galera consegui, o Delcio deu uma força pelo msn...    valeu galera, ai vai o codigo certo

 

Crp.ReportFileName = App.Path & "eport1.rpt"
Dim vDtTemp
vDtTemp = Format(Text1.Text, "mm/dd/yyyy")
Dim vDtTemp1
vDtTemp1 = Format(Text2.Text, "mm/dd/yyyy")
lFormula = "({vteste_2.Data} >= datevalue('" & vDtTemp & "')) AND ({vteste_2.Data} <= datevalue('" & vDtTemp1 & "')) and {vteste_2.nome}='" & combo1.Text & "'"
Crp.SelectionFormula = lFormula
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1