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

        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" --------------------编程问答-------------------- 右键->属性->只读 ？ --------------------编程问答-------------------- 不可能是只读的啊

补充：.NET技术 ,  VB.NET