实时错误 '70' 拒绝的权限

[bailey_ma]

但是我其实已经把所有的连接都关闭了，用了这段代码
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
'
For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next
'
End Sub

然后再对数据库文件进行复制的时候就出现标题显示的错误了。
大侠们，救命啊！

[bailey_ma]

我自己找到问题了，就是一个RecordSet 的全局变量没有关闭。
真不知道那段关闭所有数据库连接的程序是真的还是假的。
RecordSet 都关闭不了