Dato udsøgning vba

Jeg benytter i øjeblikket til at søge efter cpr nummer og oplysninger pr. en dato:

Private Sub Kommandoknap24_Click()

Dim SQLStr As String
   
    If Me![Cpr nummer] <> "" Then
        SQLStr = SQLStr & "[cpr nummer] like '*" & Me![Cpr nummer] & "*' And "
    End If
    If Me![Oplysninger pr] <> "" Then
        SQLStr = SQLStr & "[oplysninger pr] <= #" & Format(Me![Oplysninger pr], "yyyy-mm-dd") & "# And "
    End If
    If Len(SQLStr) = 0 Then
        DoCmd.OpenForm "Stamoplysninger"
        DoCmd.Close acForm, "medarbejderudsøgning"
    Else
        SQLStr = Left(SQLStr, Len(SQLStr) - 5)
        DoCmd.OpenForm "Stamoplysninger", , , SQLStr
        DoCmd.Close acForm, "medarbejderudsøgning"
    End If
End Sub

Problemet er, at datoudsøgningen finder alle poster som har en dato der er ældre end udsøgningsdatoen, hvor jeg vil have den kun skal finde den nyeste, så jeg får vist de gældende oplysninger pr. den dato.
Hvordan skal koden se ud hvis det skal kunne lade sig gøre.