如何解决运行时数据库路径报错问题

Question

If Right(App.Path, 1) = "\" Then
    strPath = App.Path & "aa.mdb"
Else
    strPath = App.Path & "\aa.mdb"
End If

Answer 1

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GetAppPath() & gconstrDBName & ";Persist Security Info=False"
private function GetAppPath() as string
    Dim s As String
    s = App.Path
    
    If Right$(s, 1) <> "\" Then s = s & "\"
    
    GetAppPath = s
end function

Answer 2

edyang(石头)是对的，
你的MDB文件放在了根目录啊…………