Question

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

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

Answer 1

读取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)

Answer 2

app.path