程序中打开Access文件抛异常！ - .NET技术 / VB.NET

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) ---- 执行到这句是出现异常：
  该文件被保护， 不能进行读写操作！

---

是不是你已经用office 打开了access?

---

不可能啊， 没有

---

引用

是不是你已经用office 打开了access?

应该是Access数据库被打开了，关闭Access就可以了。
{{