Caro Colega insira o senguite código no evento Unload do form:
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Dim WS As Workspace
Dim DB As DataBase
For Each WS In Workspace
For Each DB In WS.Databases
For Each BancoDeDados In DB.Recordsets
BancoDeDados.Close
Set BancoDeDados= Nothing
Next
DB.Close
Set DB = Nothing
Next
WS.Close
Set WS = Nothing
Next
end sub
subistitua o BancoDeDados pelo nome do seu banco de dados claro, e creio que isto irá resolver seu problema.
Poste novamente se resolver o seu problema ou não
