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''不是一个有效路径。我已经全改了阿，怎么还有这个路径

初步看到的是你把组合路径的表达式放在双引号里了。
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  & App.path & "\液压缸.mdb;Persist Security Info=true"
'此处有BUG，当应用放在根目录运行时出现错误

strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=App.path + '\液压缸.mdb';Persist Security Info=true"

修改为：
strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\液压缸.mdb;Persist Security Info=True"
你的 “液压缸.mdb” 数据库文件必须在你的程序文件的根目录，这样才可以。

最近怎么老是有这样的帖子，最基本的字符串操作都能搞错……

cha

版主正解，一下捉到三个诶。

多多体谅