سلام
با استفاده از اسکریپت هم میشه این شکلی فایل رو بست



dim accessApp

Set accessApp = GetObject("C:\Users\OurNiceFamily\Desktop\123.accd  b")

If accessApp.Visible = True Then

accessApp.quit

Set accessApp = Nothing

End If