程序中打开Access文件抛异常！

[wwf123456]

Dim appAccess As Access.Application
'打开D:DB1.MDB文件并创建一个窗体之后关闭
Const strConPathToSamples = "D:"
Dim frm As Form, strDB As String
'把文件路径赋给变量
strDB = strConPathToSamples & "db1.mdb"
' 创建一个新的Access对象
appAccess = CreateObject("Access.Application")
' 打开指定的Access文件
appAccess.OpenCurrentDatabase(strDB) ---- 执行到这句是出现异常：
该文件被保护， 不能进行读写操作！

[古今多少事]

这样试下：
strDB = strConPathToSamples & "\db1.mdb"

[Luoning9527]

右键->属性->只读 ？

[wwf123456]

不可能是只读的啊