Here's the fix - I put it on this site about 3-4 weeks ago for someone else:
Courtesy of Litwin, Getz et al
Dim db As Database, rst As Recordset, qdf As QueryDef, prm As Parameter
Set db = CurrentDb
Set qdf = db.QueryDefs("qrySomethingWithDateFilter")
For Each prm In qdf.Parameters...