Зачем нужно intFile = FreeFile?
При открытии текстовых и других форматов файлов?

Вот код:
------------------------
Dim intFile As Integer
intFile = FreeFile
Open Me![Path] For Binary As #intFile
Get #intFile, 1, rec
Close #intFile
------------------------

Его можно записать и так через единицу.
-----------------------------------------
Open Me![Path] For Binary As #1
Get #1, 1, rec
Close #1
-----------------------------------------
И всё отработает нормально.

Тогда Зачем использовать переменную
И присваивать ей значение?

http://www.sql.ru/forum/1115500/zachem-nuzhno-intfile-freefile