Set fin= CurrentDb.FTSearch({Новая: Запись "Пример тестовый"}, 0 )
а так?
еще
Откройте представление где лежат документы.
Найдите в меню сверху, View -> Search in this View.
Над представлением откроется строка поиска, вбейте туда ваш запрос.
Если документы отображаются, то запрос верен и индекс построен - значит ошибка при вызове программно.
Если документы не найдутся - неверный запрос.