Параметрический запрос

SELECT Подрядчики.КодП, Месторождения.Месторождение, Договора.КодД, Договора.№дог, Договора.[№ договора], Договора.Дата, Договора.Договор, Подрядчики.[Наименование подрядчика], Sum(ReestrNach.Znach) AS [Sum-Znach], Sum(ReestrObDog.[Sum-Выполнение]) AS [Sum-Sum-Выполнение], Sum(ReestrObDog.[Sum-Сумма]) AS [Sum-Sum-Сумма], Sum(ReestrCon.Zcon) AS [Sum-Zcon], Int(0) AS [Sum], " " AS №акта, 2 AS Ur
FROM Месторождения INNER JOIN (Подрядчики INNER JOIN (ReestrCon RIGHT JOIN (ReestrNach RIGHT JOIN (ReestrObDog RIGHT JOIN Договора ON ReestrObDog.КодД = Договора.КодД) ON ReestrNach.КодД = Договора.КодД) ON ReestrCon.КодД = Договора.КодД) ON Подрядчики.КодП = Договора.КодП) ON Месторождения.[Шифр месторождения] = Договора.[Шифр месторождения]
WHERE (((Месторождения.[Шифр месторождения])=mest()) AND ((ReestrCon.Zcon)>0.5)) OR (((Месторождения.[Шифр месторождения])=mest1()) AND ((ReestrCon.Zcon)>0.5)) OR (((Месторождения.[Шифр месторождения])=mest2()) AND ((ReestrCon.Zcon)>0.5)) OR (((Месторождения.[Шифр месторождения])=mest3()) AND ((ReestrCon.Zcon)>0.5))
GROUP BY Подрядчики.КодП, Месторождения.Месторождение, Договора.КодД, Договора.№дог, Договора.[№ договора], Договора.Дата, Договора.Договор, Подрядчики.[Наименование подрядчика], Int(0), " ", 2;

Function mest() As String
mest = Mestor
End Function

Sub xxx()
On Error Resume Next
Dim a as int 
a = 0
a = 1 / a
End Sub