MS Access RecordSet Not Closing

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