dato i en query

Jeg benytter følgende forespørgsel i en query:

sqlstr = "Select DISTINCT CalculationID, BE_HI, " & _
"Oprettet, " & _
"Deadline, Handelsdato, Testflyt  from dbo_LoanInformation WHERE ukey = '" & _
Sheets("Rullelister").Range("R8") & "' ORDER BY Oprettet DESC"

Desværre giver de i enkelte tilfælde flere rækker end tilsigtet idet der ofte bliver gemt flere rækker på hver sin side af en sekundt.
Jeg har altså brug for at min DISTINCT kun tager short date og ikke den fulde date