ник: Силыч
повтоярюсь
1. STR - объявлена как переменная, но это зарезервированное слово VBA - STR - функция
2. после
rs.FindFirst "[НомерТел] = '" & Me!НомерТелЗак.Value & "'"
хорошо бы проверить - найдено чтолибо или нет
тебе поможет rs.NoMatch
3. еще хорошо бы знать точнее - код ошибки или описание.