ник: Анатолий (Киев)
Вместо Set rst = CurrentDB.OpenRecordset("Select...") в вашем случае надо:
Set qdf = CurrentDB.CreateQueryDef("","SELECT...")
qdf.Parameters(0) = EVal(qdf.Parameters(0).Name)
Set rst = qdf.OpenRecordset()
Или в запрсе ссылку на форму обернуть в EVal, а затем в CDate - будет работать везде (если поле на форме не пустое).