Не работает метод Find

Среда, 12 Сентября 2018 г. 09:26 + в цитатник

Вот такой код, на методе финд выдает ошибку, текстовое поле, че ему надо?

   While Not TNakl.EOF
     StrokNameTovar = TNakl.Fields("ntov")
     DateNakl = TNakl.Fields("dt")
     PozZapOld = 1
     While PozZapOld <> 0
        PozZap = InStr(PozZapOld, StrokNameTovar, ",")
        'MsgBox PozZap
        If PozZap = 0 Then
          StrokTovar = Trim(Mid(StrokNameTovar, PozZapOld, Len(StrokNameTovar) - PozZapOld + 1))
          PozZapOld = 0
        Else
          StrokTovar = Trim(Mid(StrokNameTovar, PozZapOld, PozZap - PozZapOld))
          PozZapOld = PozZap + 1
        End If
        'MsgBox StrokTovar
        TTov.MoveFirst
        TTov.Find ("ntov=" & Chr(34) & StrokTovar & Chr(34))
        MsgBox TTov.Fields("tov")
     Wend
     TNakl.MoveNext
   Wend