Форумы HiProg.com - MS ACCESS, VBA, VB

ник: lulukyan
Такая вот штуковина: есть запрос на добавление с параметром

PARAMETERS vyymm Text ( 255 ); INSERT INTO aDat_PC ( yymm, Regno, [Key], Cnt ) SELECT PD.Month, PD.Regno, PD.CallerRegno, Count(PD.CallerRegno) AS CountOfCallerRegno FROM PD WHERE (((PD.Month)=[vyymm])) GROUP BY PD.Month, PD.Regno, PD.CallerRegno;

Выпоняюшийся из VBA

Set qdf = CurrentDb.QueryDefs("qaVal_PC")         qdf.Parameters("vyymm") = ActiveMonth         CurrentDb.Execute "qaVal_PC"         qdf.Close

При попытке выполнения выдает ошибку

Run-time error '3061' Too few parameters. Expected 1.

В чём тут ошибка?
MS Access2003