Kruzado muchas gracias por la respuesta, ahora ya me está funcionando
. Pongo aqui la solucion por si a alguien más le pasa el mismo problema...
strQryString = "{DatabaseProject.fecha} >= #" & Format(DTStartDate.Value, "dd/mm/yyyy") & "# And {DatabaseProject.fecha} <= #" & Format(DTEndDate.Value, "dd/mm/yyyy") & "#"
With CrystalReport1
.ReportFileName = App.Path & "\inventario.rpt"
.Connect = App.Path & "\residenciator.mdb"
.DiscardSavedData = True
.RetrieveDataFiles
.ReportSource = 0
.SQLQuery = "Select * from tblinventario order by NumInventario"
.ReportTitle = "Informe Detalles Inventario"
.Destination = crptToWindow
.PrintFileType = crptCrystal
.WindowState = crptMaximized
.WindowMaxButton = True
.WindowMinButton = True
.SelectionFormula = strQryString
.Action = 1
End With
Gracias de nuevo.