dato felt opfører sig meget mærkeligt

Jeg fik lidt hjælp herinde den anden dag ( www.eksperten.dk/spm/200034 ) men der er noget galt. Jeg har oprettet en knap der først indfører en dato baseret på 2 comboboxe i et skjult tekstfelt og derefter åbner en raport der bygger på en query der filtrerer nogle data efter tekstfeltet med datoen.
Dropboxene indeholder for måneder talene 01 - 12 og for årene 00 til 05 (for år 2000 til 2005). Jeg har brugt følgende kode:

    Dim dt As Date
    dt = CDate("31" & "-" & Me.Måned & "-" & Me.År)
    Me.SamletDato = dt
    DoCmd.OpenReport "SamletLagerliste"

hvor SamletDato er tekstfeltet queryen er baseret på.
Men.......... ja der er jo et men.... når jeg har en ulige måned (januar, marts, maj osv) skriver den datoen korrekt: fx 31-01-02 eller 31-05-02
men hvis jeg bruger en lige måned skriver den datoen omvendt: 02-04-31 eller 02-06-31
(året er i alle tilfælde 2002)
Kan nogen forklare mig hvad der er galt?? Jeg har store problemer med det.