Set col = view.GetAllDocumentsByKey(dateRange, False) の前までデバッグして、dateTime1 、dateTime2、dateRangeに値が入っているか確認してみてください。 ちなみにSet col = view.GetAllDocumentsByKey(dateRange, False) のFalseをTrueにしたら、どうなりますか?