Кто может прояснить ситуацию.
кладу в одну папку файл и программу проверки его наличия.
Результат работы проверки - Файла нет!
Хотя он есть.

Option Compare Database
Option Explicit
Dim FSO As FileSystemObject


Private Sub Кнопка0_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(CurrentProject.Path & "RKC16051.DBF")) Then
MsgBox "Файл есть!"
Else
MsgBox "Файла нет!"
End If
End Sub

http://www.sql.ru/forum/1156896/poisk-fayla-v-papke-ne-udacha