You need to split criteria into two parts like so:
([datetime]-Int([datetime])>=TimeSerial(6,0,0) And [datetime]-Int([datetime])<=TimeSerial(15,15,0))
And
([datetime]>=[Forms]![Form1]![StartDate] And [datetime]<=[Forms]![Form1]![EndDate])
You will need to replace [datetime] with your...