Sort by Date (Descending) then by Scanner (Ascending), this will sort the sort the scanners by date. I believe this what was meant by grouping.
You can then use the Dlookup function to get the first Date.
In your VB Code try this
Dlookup("[Date]", "yourQueryNameHere", "[Scanner] = '" &...