Findfirst

[Jacks]

Я пытаюсь наити запись в базе данных вот так:

Poisk = Text5.Text
crit = "Наименование товара=" & "'" & Text5 & "'"
Data1.Recordset.FindFirst crit
If Data1.Recordset.NoMatch Then
MsgBox "Не наидено"
End If

Но все время ошибка missing operator
Может кто знает в чем тут ошибка?

[Shurik90]

Вот самый простои пример поиска, работает на все 100%. И не надо ничего усложнять:

Код: Выделить всё

rstRecordset.Find "Name= '" & txtSearch.Text & "'", 0, adSearchForward, 1

if rstRecordset.EOF=True Then
  MsgBox "Не найдено"
End If



Вот в этом месте большие проблемы с кавычками, там идёт так:
' " & txtSearch.Text & " ' "