Подскажите

[Sergey_KSR]

Подскажите
Меня попросили
«мне надо поиски на VB в Accese, я почти написала. но ошибку выдает и все!»
«ты можешь посмотреть, в чем проблема?»
Я попросил код
Public Function Poisk(Tabl As String, Pole As String)

If НаличиеЗапроса("POISK") = True Then DoCmd.DeleteObject acQuery, "POISK"

strSQL = "SELECT " & Tabl & "." & Pole & " AS Найдено, " & Tabl & ".КодАдреса FROM " & Tabl & " WHERE (((" & Tabl & "." & Pole & ") Like ""*"" & [Forms]![Поиск]![PolePoiska] & ""*""));"
Set qdf = CurrentDb.CreateQueryDef("POISK", strSQL) 'и затем создадим новый запрос "POISK"
qdf.Close
Set qdf = Nothing

DoCmd.OpenForm "Результат поиска"

End Function
Проблема
«он мне вообще постоянно пишет, что не хватает оператора. Но SQL написан правильно.»
Сам я программировал только Visual Basic и visual basic for applications в Excel