General :: Close Database When A File Is Not Found

I have this code that I want to close the database when a file is not found:

Option Explicit
Dim boolCountDown As Boolean
Dim intCountDownMinutes As Integer
Private Sub Form_Open(Cancel As Integer)
boolCountDown = False

[Code] ....

A form with this code is opened when the database is loaded. The form refreshes every 10 seconds. When the form refreshes, it searches (is supposed to search) for a file name and if not found, close the database. but if it's found it does nothing. I rename the file when I want the database to close. But the code runs no matter what and closes the database even if the file is in the correct location with the correct name. the file path above is a network drive but it doesn't work no matter when I put the file. I bolded the parts that are supposed to be searched.