options& = FTINDEX_ALL_BREAKS + FTINDEX_CASE_SENSITIVE
If db.IsFTIndexed Then
Call db.UpdateFTIndex( False )
'Messagebox "Database index recreated",, "FT index"
Else
Call db.CreateFTIndex(options&, False)
'Messagebox "New database index created",, "FT index"
End If
........
фтпоиск
работает ))