Sub main()

Dim strAccess As String

  '联接access数据库
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=App.path + '\液压缸.mdb';Persist Security Info=true"
Set ADOcn = New Connection
ADOcn.Open strAccess '联接access数据库
Frmdl.Show
End Sub

之前的一个程序，现在需要把绝对路径改为相对路径，已经把所有的窗体和模块信息都改成了相对路径，结果运行时出现了下面的提示。是哪里的问题啊

'E：\液压缸\App.path + '\液压缸.mdb''不是一个有效路径。我已经全改了阿，怎么还有这个路径