While Not recordset.EOF
Debug.Print ("id=" & recordset!InstalmentRecID)
The movenext etc will actually make the selected item on the screen move.
To avoid this, you can use:
Set clone = recR.clone
While Not clone.EOF
Debug.Print ("id=" & clone!InstalmentRecID)
Set clone = Nothing
which means that nothing is moved, and its faster.