ضغط قاعدة بيانات اكسس

اريد ضغط قاعدة بيانات واستخدمت الكود التالي :

Dim fso As FileSystemObject

Dim objJro As JRO.JetEngine

Set fso = CreateObject("Scripting.FileSystemObject")

Set objJro = New JRO.JetEngine

CloseAdo ‘غلق قاعدة البيانات

objJro.CompactDatabase "provider=microsoft.Jet.OLEdb.4.0;Jet OLEDB:Database Password=ueedis; Data Source=" & RealPath & "newstock.mdb", "provider=microsoft.Jet.OLEdb.4.0;Data Source=" & RealPath & "temp.mdb" & ";Jet OLEDB:Engine Type=5"

fso.CopyFile RealPath & "temp.mdb", RealPath & "newstock.mdb"

Set objJro = Nothing

If fso.FileExists(RealPath & "temp.mdb") Then fso.DeleteFile RealPath & "temp.mdb"

ولكن عند تنفيذه تظهر الرسالة التالية

You attempted to open a database that is already opened exclusively by user ‘Admin’ on machine ‘pc2’ . Try again when the database is available .

فما هو سبب هذه المشكلة وما هو الحل ؟