Query datum in Visual Basic 6

[Verwijderd]

Ik probeer een 3 maandelijkse telling te doen met Visual Basic 6 en een Access Database.
In Access gaat de query prima, maar in VB 6 met variabelen lukt het mij niet.

Dit heb ik gemaakt:
Dim mvVandaag as long 'de datum van vandaag
Dim mvKwart as long 'de datum van een kwartaal geleden

mvVandaag = datetime.date
mvKwart =DatePart("q", mvVandaag, 2, 2)

Select count (*) from screening
Where gerarchiveerdnaar pdf = true and
aanmaakdatum >= # " & format(mvVandaag, "YYYY-MM-DD") & "# and
aanmaakdatum <= # " & format(mvKwart, "YYYY-MM-DD")

Wat doe ik fout?