请教：运行错误3204数据库已存在

VB6.0中
其中有   TEMPFILE = App.Path & "\" & Trim(Text21.Text) & Trim(Text22.Text) & Trim(Text23.Text) & Trim(Combo1.Text) & ".mdb"

    On Error Resume Next
    Fnum = FreeFile
    Open TEMPFILE For Input As #Fnum
    Close #Fnum
这个是找到一个文件并打开取里面数据。
但是，这样操作后。就出现  运行错误3204  数据库已存在。
在开发软件中运行就不会出现，编译成exe文件后 运行的话，就会出现