Hente Where-kriterie til rapport fra listbox

Hej

Jeg har en listbox med et antal rapporter. Ved klik på cmdPrint udskrives de(n) valgte rapport(er). Flere af rapporterne optræder bevidst flere gange fordi de skal udskrives med forskellige where-kriterier.

Where-kriteriet hentes fra en skjult kolonne i listboxen. Dette fungerer fint så længe der er tale om strings eller tal. Jeg har imidlertid et problem når kriteriet omfatter en dato.

Koden for cmdPrint:

If Not IsNull(Me.lstRptChoice.Column(15)) Or Me.lstRptChoice.Column(15) <> vbNullString Then

DoCmd.OpenReport Me.lstRptChoice.Column(0), acViewPreview, , Me.lstRptChoice.Column(15)

End If

Kolonne 15 kan eks. være:
[fldFornavn] = 'Nikolaj'
Hvilket virker fint.

Spørgsmålet går på hvad jeg skal skrive i det felt, der ender i kolonne 15, hvis jeg i stedet skal afgrænse på dd. I øjeblikket står der eks.:

[fldDato] Between date() - 30 AND date()

Men dette giver en fejlmelding. Formodentlig fordi date() ikke kan evalueres.

Jeg har også prøvet:
"[fldDato] Between #" & Date - 30 & "# AND #" & Date & "#"

Hvilket svarer lidt til at sætte melle to stole og i hvert fald giver en fejl.

Jeg håber der er nogen der har en bedre formulering af kriteriet, alternativt en anden fremgangsmåde.

Hilsen
Nikolaj