Te agradezco mucho tu ayuda, tengo CR8 y esa sentencia la probe pero algo debo tener mal porque no me funciono.
exactamente como escribi el codigo
Dim sFecha1, sFecha2 As String
sFecha1 = CStr(DTPick1.Value)
sFecha2 = CStr(DTPick2.Value)
CrystalReport1.DiscardSavedData = True
CrystalReport1.SelectionFormula = "{tblResumenHoras.Fecha} in date (" & "#" & sFecha1 & "#" & ") to date (" & "#" & sFecha2 & "#" & ")And {tblResumenHoras.Cod_Legajo}=" & "'" & DataCombo1.BoundText & "'"
CrystalReport1.SortFields(0) = "+{tblResumenHoras.Fecha}"
CrystalReport1.PrintReport