Есть таблицы и запросы, которые храняться в базе:
SPR_BRAK_M - > таблица
UCHASTKI - > таблица
CONTRAKT - > таблица
PROSTOY - > таблица

zapr_Proiz_Uch_Contr (запрос)=SELECT CONTRAKT.Uchastok, [Q_Stankov]*[Proizvodit_hour]*[Resurs_Time] AS Proiz_Uch_Contr
FROM CONTRAKT;

zapr_Select_Hour_Prostoy (запрос)=SELECT PROSTOY.Uchastok, Sum(PROSTOY.Hours) AS [Sum-Hours]
FROM PROSTOY
WHERE (((PROSTOY.Date_) Between [p1] And [p2] ))
GROUP BY PROSTOY.Uchastok;

zapr_Max_Zagr (запрос)= "SELECT SPR_BRAK_M.ID, Format(((([sum-Proizvodit_hour]*[avg-Resurs_Time]+(nz([Proiz_Uch_Contr],0)*contrakt_vvod(1,0)))*(contrakt_vvod(1,1)-0.5*calc_Grafika( [p_1] , [p_2] ))-(nz([Sum-Hours],0)*[avg-Proizvodit_hour]))*Proz_Brak()/[Presch_vid_Prod])/5000,"0")*5000 AS Itog_Proizvod, Avg(UCHASTKI.Proizvodit_hour) AS [Avg-Proizvodit_hour], Sum(UCHASTKI.Proizvodit_hour) AS [Sum-Proizvodit_hour], Avg(UCHASTKI.Resurs_Time) AS [Avg-Resurs_Time], zapr_Select_Hour_Prostoy.[Sum-Hours], zapr_Proiz_Uch_Contr.Proiz_Uch_Contr, SPR_BRAK_M.Presch_vid_Prod
FROM SPR_BRAK_M INNER JOIN (UCHASTKI LEFT JOIN (zapr_Select_Hour_Prostoy RIGHT JOIN zapr_Proiz_Uch_Contr ON zapr_Select_Hour_Prostoy.Uchastok = zapr_Proiz_Uch_Contr.Uchastok) ON UCHASTKI.ID_Uchastok = zapr_Proiz_Uch_Contr.Uchastok) ON SPR_BRAK_M.ID = UCHASTKI.ID_Uchastok
GROUP BY SPR_BRAK_M.ID, zapr_Select_Hour_Prostoy.[Sum-Hours], zapr_Proiz_Uch_Contr.Proiz_Uch_Contr, SPR_BRAK_M.Presch_vid_Prod;"

Выполняю программу для того, чтобы заполнить таблицу MAX_ZAGRUZKA на основе запроса zapr_Max_Zagr :
sub ins()
Dim Date_Begin As Date
Dim Date_End As Date
Dim qf As QueryDef

Date_Begin = CDate("01.01." & Trim(Str(Year(Date))))
Date_End = DateAdd("d", -1, DateAdd("m", 1, Date_Begin))

SQL_ADD = "PARAMETERS [p1] DateTime, [p2] DateTime, [p_1] DateTime, [p_2] DateTime;" & _
"INSERT INTO MAX_ZAGRUZKA ( Uchastok, " & I & " ) " & _
"SELECT zapr_Max_Zagr.ID, zapr_Max_Zagr.Itog_Proizvod " & _
"FROM zapr_Max_Zagr ;"

Set qf = Сurrentdb.CreateQueryDef("", SQL_ADD)

qf.Parameters("p1") = Date_Begin
qf.Parameters("p2") = Date_End
qf.Parameters("p_1") = Date_Begin
qf.Parameters("p_2") = Date_End

qf.Execute-->Ошибка( Ошибочный Аргумент ), причем только в Access2000, а в Access97 все OK????
Я думаю что проблемма в передаваемых параметрах- [p1],[p2],[p_1],[p_2] , а как грамотно их передать, в таком случае не знаю????
qf.Close

end sub