求助：GPS程序段调试不出来
求助啊！帮我看看这个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数据库！”？？帮我查查错吧！
