如何修改个句话？VB ADO连接MDB问题，只抢不散！

Question

ConMDB = App.Path + "\cup.Mdb"

Answer 1

Dim strapp As String
strapp = App.Path
If Right(strapp, 1) <> "\" Then
strapp = strapp + "\"
end if
cn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strapp & "cup.mdb;Persist Security Info=False"strapp 只是求你的当前路径，即你的程序的路径，如果world是你的程序路径中的一个文件夹，最后一句必须这样写：cn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strapp & "/world/cup.mdb;Persist Security Info=False"