Перестает срабатывать запрос в VBA

[Landurik]

Привет! Вот такая вот проблемка выходит:
есть форма, на которой чел вводит инвентарный номер, после этого, с помощью запроса в VBA, находиться мат. ценность и заполняются отстальные поля. Проблема в том, что не всегда запрос срабатывает, т.е. сначала все находит, потом ,опа , и ничего нет Подскажите плиз что-нить!!!!
Текст запроса:

  Set Zapros2 = CurrentDb
   StrSql2 = "SELECT [Движение матценностей].[Инвентарный номер], [Движение матценностей].[Дата составления], [Движение матценностей].[Сдатчик отделение], [Движение матценностей].[Сдатчик ФИО],[Движение матценностей].[Получатель ФИО],[Движение матценностей].[Получатель отделение] FROM [Движение матценностей] WHERE ([Движение матценностей].[Дата составления] = (SELECT MAX([Движение матценностей].[Дата составления])FROM [Движение матценностей])and ([Движение матценностей].[Инвентарный номер] = '" & InvenNomer1 & "'))"
Set baz2 = Zapros2.OpenRecordset(StrSql2)
If baz2.RecordCount > 0 Then
  If baz2![Получатель отделение] = "" Then
     Forms![Движение матценностей]![Сдатчик отделение] = baz2![Сдатчик отделение]
     Forms![Движение матценностей]![Сдатчик ФИО] = baz2![Сдатчик ФИО]
   Else
    Forms![Движение матценностей]![Сдатчик отделение] = baz2![Получатель отделение]
    Forms![Движение матценностей]![Сдатчик ФИО] = baz2![Получатель ФИО]
   End If
End If