CurrentDB.Execute锁定数据库以供独占使用

Question

我的Access数据库中有一个函数，它将数据库置于独占锁定状态。

    Sub PrepareYears(Aar As Integer)

    CurrentDB.Execute "DELETE FROM HKE_Years"

    CurrentDB.Execute "INSERT INTO HKE_Years ( Years ) VALUES (" & Aar & ")"

    CurrentDB.Execute "INSERT INTO HKE_Years ( Years ) VALUES (" & Aar - 1 & ")"
End Sub

我已将数据库选项设置为高级选项中的“共享”和“无锁定”。

请指导，这一直困扰着我48小时。

谢谢， Hardik