MS Access RecordSet Not Closing

%3CLINGO-SUB%20id%3D%22lingo-sub-3123524%22%20slang%3D%22en-US%22%3EMS%20Access%20RecordSet%20Not%20Closing%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3123524%22%20slang%3D%22en-US%22%3E%3CP%3ESuddenly%20today%20MS%20Access%20is%20not%20closing%20instances%20of%20a%20recordset.%20If%20I%20open%20a%20recordset%20(using%20vba)%20and%20then%20set%20it%20to%20nothing%2C%20when%20I%20close%20ms%20access%20there%20are%20multiple%20instances%20of%20MS%20Access%20open%20that%20aren't%20closing.%26nbsp%3B%20I%20created%20a%20basic%20database%20subrountine%20that%20does%20only%20this%20and%20the%20issue%20still%20persist.%20My%20code%20is%20below.%20I%20have%20reinstalled%20MS%20Professional%20twice%20already%20as%20well%20as%20rebooted%20and%20compact%20and%20repaired.%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPublic%20Sub%20WTF()%3C%2FP%3E%3CP%3EDim%20rs%20As%20Recordset%3CBR%20%2F%3ESet%20rs%20%3D%20CurrentDb.OpenRecordset(%20%22SELECT%20*%20FROM%20Table1%22)%3CBR%20%2F%3EDo%20While%20Not%20rs.EOF%3CBR%20%2F%3E%26nbsp%3BMsgBox%20rs!Value1%3CBR%20%2F%3E%26nbsp%3Brs.MoveNext%3CBR%20%2F%3ELoop%3CBR%20%2F%3ESet%20rs%20%3D%20Nothing%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3123524%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3Eaccess%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3123661%22%20slang%3D%22en-US%22%3ERe%3A%20MS%20Access%20RecordSet%20Not%20Closing%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3123661%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1298748%22%20target%3D%22_blank%22%3E%40msstinkspoopoo%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIt's%20possible%20you've%20acquired%20the%20most%20recent%20bug%20from%20Windows%20updates.%20Check%3CA%20href%3D%22https%3A%2F%2Fsupport.microsoft.com%2Fen-us%2Foffice%2Faccess-is-unable-to-close-and-leaves-lockfile-active-b2dce32b-b8b0-41f1-ba40-7876e524d9da%22%20target%3D%22_self%22%20rel%3D%22noopener%20noreferrer%22%3E%20this%20site%3C%2FA%3E%20and%20t%3CA%20href%3D%22https%3A%2F%2Fwww.devhut.net%2Fanother-access-bug-cannot-open-any-more-databases%2F%22%20target%3D%22_blank%22%20rel%3D%22nofollow%20noopener%20noreferrer%22%3Ehis%20site%3C%2FA%3E%20to%20see%20if%20the%20descriptions%20fit%20what%20you%20are%20experiencing.%20Also%20check%20for%20the%20workarounds%20in%20the%20discussions.%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

Suddenly today MS Access is not closing instances of a recordset. If I open a recordset (using vba) and then set it to nothing, when I close ms access there are multiple instances of MS Access open that aren't closing.  I created a basic database subrountine that does only this and the issue still persist. My code is below. I have reinstalled MS Professional twice already as well as rebooted and compact and repaired. 

 

Public Sub WTF()

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset( "SELECT * FROM Table1")
Do While Not rs.EOF
 MsgBox rs!Value1
 rs.MoveNext
Loop
Set rs = Nothing
End Sub

1 Reply

@msstinkspoopoo 

 

It's possible you've acquired the most recent bug from Windows updates. Check this site and this site to see if the descriptions fit what you are experiencing. Also check for the workarounds in the discussions.