SELECT синтаксиса(пропущен оператор)

Private Sub Поиск_Change()

Dim перТоЧоВвели As String
Dim перАктивноеПоле As String
Dim переменная2 As String
Dim переменная1 As Boolean

 переменная2 = Me!Поле2
 перАктивноеПоле = глПерАктивПоле.Name
 If …………………. Then 
    переменная1 = 0
 else
    переменная1 = -1
 end if

 Me!Поиск.RowSource = "SELECT Таблица." & перАктивноеПоле & ",   Таблица.Поле2, Таблица.Поле1 FROM Таблица GROUP BY Таблица." &  перАктивноеПоле & ", Таблица.Поле2, Таблица.Поле1 HAVING (((Таблица.Поле2)='" & переменная2 & "') AND ((Таблица.Поле1)=" & переменная1 & ")) ORDER BY Таблица." & перАктивноеПоле & ";"

End Sub

Private Sub Поиск_Change()

Dim перТоЧоВвели As String
Dim перАктивноеПоле As String
Dim переменная1 As String
Dim переменная2 As Boolean

переменная1 = Me!Поле1
перАктивноеПоле = глПерАктивПоле.Name
If ………….. Then 
переменная2 = 0
else
переменная2 = -1
end if

 Me!Поиск.RowSource = "SELECT Таблица." & перАктивноеПоле & ", Таблица.Поле2, Таблица.Поле1 FROM Таблица GROUP BY Таблица." & перАктивноеПоле & ", Таблица.Поле2, Таблица.Поле1 HAVING (((Таблица." & перАктивноеПоле & ")= Like '*" & перТоЧоВвели & "*') AND ((Таблица.Поле2)= " & переменная2 & ") AND ((Таблица.Поле1)= '" & переменная1 & "')) ORDER BY Таблица." & перАктивноеПоле & ";"
End sub