Private Sub Поиск_Change() Dim rst As DAO.Recordset 'полуучаем набор записей для поиска Set rst = Me.Recordset.Clone 'делаем поиск rst.FindFirst "[ЛПУ] like '*" & Поиск.Text & "*'" Debug.Print rst.NoMatch 'если неудачно, то просто выходим If rst.NoMatch Then Exit Sub 'иначе переходим на найденнную запись Me.Bookmark = rst.Bookmark 'встаем в поле поиска Поиск.SelStart = Len(Поиск.Text)End Sub