Strqueryhora = "select * from detalle Where (" _
& "fecha_in = #" & Format(FECHADESDE, "mm/dd/yyyy") _
& "# and hora_in between #" & Format(dhoramin, "hh:mm:ss") _
& "# AND #" & Format(dhoramax, "hh:mm:ss") & "#) " _
& "OR (fecha_in = #" & Format(FECHAFINAL, "mm/dd/yyyy") _
& "# and hora_in between #" & Format(hhoramin, "hh:mm:ss") _
& "# AND #" & Format(hhoramax, "hh:mm:ss") & "#)"