Feb 06 2022 02:34 PM
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