gcsanchez respondió:
CR1.DataFiles(0) = App.Path & "\base de datos" CR1.SelectionFormula = "{tabla.campo} between #" & format(fechadesde,"DD/MM/YYYY") & "# And #" & format(fechahasta,"DD/MM/YYYY") CR1.Destination = 0 CR1.Action = 1 Espero que te sirva, de todos modos si...