求助啊！帮我看看这个GPS的VB程序段

大侠们，帮我看看这个程序吧，我是第一次接触VB，不懂怎么回事。
Private Sub GetGpsPath()
Dim dbs As Database

On Error GoTo errorhandle
strPath = Ini_GetPath
If strPath = "" Then
strPath = App.Path + "C:\Mestudy\Data\"
End If
Set dbs = DBEngine.Workspaces(0).OpenDatabase(strPath + "GPS.MDB")
dbs.Close
Ini_SavePath strPath
Exit Sub
errorhandle:
strPath = GetFileName("GPS.mdb", "GPS.mdb", True)
If strPath = "" Or right(strPath, 7) <> "GPS.mdb" Then
MsgBox "无法找到Gps.mdb数据库！"
End
Else
strPath = left(strPath, Len(strPath) - 7)
Resume
End If
End Sub
为什么我运行后一直显示“无法找到Gps.mdb数据库！”？？帮我查查错吧！

判断 某个文件是否存在,,用Dir函数或win32api FindFirstFile即可..

不懂啊，怎么用这个函数？

if Dir("D:\NorthWind.mdb") = "" Then
'文件不存在
Else
'文件存在
end if

如果你的工程保存在C:\Mestudy\Data\的话...那你的App.path 就是C:\Mestudy\Data\
而你strPath = App.Path + "C:\Mestudy\Data\"这个的话..
那结果就是C:\Mestudy\Data\C:\Mestudy\Data\ 你说.这样的话..文件路径正确吗?...