Aquí tienes un ejemplo de código para Crystal Reports 8:
Código:
dataLibroVentas.DataFiles(0) = App.path & "\prueba.mdb"
dataLibroVentas.ReportFileName = App.path & "\LibroVentas.rpt"
dataLibroVentas.SelectionFormula = "{VENTAS.FECHA} >=" & "#" & DTPicker1.Year & "/" & DTPicker1.Month & "/" & DTPicker1.Day & "# AND {VENTAS.FECHA}<=" & "#" & DTPicker2.Year & "/" & DTPicker2.Month & "/" & DTPicker2.Day & "#"
dataLibroVentas.SortFields(0) = "+{VENTAS.IDFACTURA}"
dataLibroVentas.PrintReport