in order to use the FileSearch, you need to call the .Execute method, which will return the number of files found. try:
Set fs = application.FileSearch
With fs
.LookIn = application.CurrentProject.Path & "\database files\letter"
.FileName = fname
If .Execute > 0 then...