VBA|excel连接access 没有使用“../*.mdb”对象权限

1、VBA程序1：A.excel ado连接B.access,读取数据
2、VBA程序2： C.access（代码）生成B.access
3、在VBA程序1文件夹路径下手动创建B1.access，程序运行正常
4、将VBA程序2生成的 B2.access 替换B1.access（改名），出现使用权限错误信息

原因在于access的打开方式，独占方式就会出现上述错误
改成只读或读写就可

adModeUnknown:缺省。当前的许可权未设置
adModeRead:只读
adModeWrite:只写
adModeReadWrite:可以读写
adModeShareDenyRead:阻止其它Connection对象以读权限打开连接
adModeShareDenyWrite:阻止其它Connection对象以写权限打开连接
adModeShareExclusive:阻止其它Connection对象以读写权限打开连接
adModeShareDenyNone:阻止其它Connection对象以任何权限打开连接

连接串例子：
1 只读
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/temp/123.mdb;Mode=Read;Persist Security Info=False

2 独占方式
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/temp/123.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False