VB获取当前打开的ACCESS数据库路径

补充：app如何定义？我是业余爱好者，见谅喇了。能给具体代码吗？

答案：读取connection的ConnectionString，根据Data Source或DBQ判断：
ss = con1.ConnectionString
p = InStr(1, ss, "dbq=", vbTextCompare) + 4
If p = 4 Then p = InStr(1, ss, "Data Source=", vbTextCompare) + 12
ss = Mid(ss, p)
ss = Left(ss, InStr(ss, ";") - 1)

其他：app.path

上一个：计算机大作业要用ACCESS做个有关NBA的数据库，跪求构思
下一个：SQL查询语句，access数据库 记录量相当大 所有只用select * from ＋ 表名 这样读数据相当慢