problemer med between

Jeg har et problem med denneher:

Private Sub Report_Open(Cancel As Integer)
    Dim FørsteDato As Date
    Dim AndenDato As Date
    Dim FD As String
    Dim AD As String
   
            FD = InputBox("Fra dato:", "Indtast startdato i formatet: dd-mm-åååå")
        If FD = "" Then
            DoCmd.CancelEvent
        Else
            FørsteDato = FD
            AD = InputBox("Til dato:", "Indtast slutdato i formatet: dd-mm-åååå")
        End If
        If AD = "" Then
            DoCmd.CancelEvent
        Else
            AndenDato = AD
            Me.Filter = "Dato Between #" & FørsteDato & "# And #" & AndenDato & "#"
            Me.FilterOn = True
        End If
End Sub


Mit problem er, at der er noget galt med datoformaterne. Det er som om den vil lave det om til formatet mm-dd-åååå i filteret. Er jeg nødt til at ommøblere datoen til det format.