Sortering efter dato

HEj , jeg vil gerne have vist poster inden for de 1,3,6,12 måneder. men kan ikke få min kode til at virke. Det er sat på en kombiboks, hvad gør jeg galt

Select Case Me.sort
Dim dage As Double
Dim dato As Date
Case 1
dage = 30
Case 2
dage = 90
Case 3
dage = 184
Case 4
dage = 365
Case 5
dage = 5000

End Select
dato = Date - dage
Me.filter = "ordredato > " & dato & ""
Me.FilterOn = True
Me.Refresh