请教个SQL语句，当文件不存在时提示而不是自动创建文件

CNATB

使用SQL语句打开EXCEL工作簿WbPathFullName时，因为路径下这个文件不存在，执行以下程序段 .Open WbPathFullName后，程序会自动生成一个空的WbPathFullName工作簿，然后执行查询时就会出错，应该怎样修改才能不是生成一个新文件，而是找不到时，执行 If Err.Number <> 0 Then 这句。

'连接数据库，返回连接对象
Private Function CreateConnectionE() As Object
      Dim cn As Object
      Set cn = CreateObject("Adodb.Connection")
      With cn
            .Provider = "Microsoft.Ace.Oledb.12.0;extended properties=excel 12.0"
            .Open WbPathFullName '执行本语句后，会自动生成一个文件，如何不是生成文件，而是找不着文件时，出错
      End With
      If Err.Number <> 0 Then
            Set CreateConnectionE = Nothing
      Else
            Set CreateConnectionE = cn
      End If
End Function

f8b1987

Dim filePath As String
filePath = "C:\Path\To\Your\File.txt"

If Dir(filePath) <> "" Then
    MsgBox "文件存在"
Else
    MsgBox "文件不存在"
End If