В ленточной форме использую текстовое поле для ввода значений поиска. Задумка простая по ходу набора текста в поле меняется значение поиска. Проблема не могу набрать строку, второй символ забивает первый, т.е всегда один символ в поле :( . Знаю что надо ставить в конец строки следующий символ, но как?? вообще нет мыслей и идей. Видел где то решение но давно когда не надо :( в принципе одна функция :(
Народ плиз помогите. Мой код:

Private Sub FindField_Change()
Dim strLike As String
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone

strLike = "Name like '" & Me.FindField.Text & "*'"
rst.FindFirst strLike

If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing