Good morning friends:
I wrote a simple end of month Form to set a field on table to "IsClosed".
simple 2 loops. The first loop fires correctly; however, the second loop is not firing at all. I can't see where i am going wrong.

Here is the code. and the results are in the image below.

Details

Private Sub CloseBtn_Click()
    
    Dim db As Database
    Dim rsY As Recordset    'YearMonthT
    Dim rsC As Recordset    'ChatT
    Dim rsA As Recordset    'AssT
    Dim S As String         'Select string with Year
    Dim S2 As String        'Select string with month
    Dim S3 As String        'Select string ChapT
    StatusBox = ""
    Status "-----------starting---------"
    
    Set db = CurrentDb
    S = "SELECT * From S_YearMonthT WHERE YMYear = """ & YearCombo & """"
    S2 = " And YMMonth = """ & MonthCombo & """"
    S = S & S2
    Set rsY = db.OpenRecordset(S)
    While Not rsY.EOF
        S3 = "SELECT * FROM ChapT WHERE YearMonthID = " & rsY!YearMonthID
        Status S3
        Status rsY!YMYear & " " & rsY!YMMonth
        Set rsC = db.OpenRecordset(S3)
        While Not rsC.EOF
            Status "YearMonthID = " & rsC!YearMonthID
            rsC.Edit
            rsC!IsClosed = True
            rsC.Update
            rsC.MoveNext
        Wend
        Status "end of rsC loop"
        rsY.MoveNext
    Wend
        Status "End of  rsY loop"
    rsC.Close
    db.Close
    Set rsC = Nothing
    Set db = Nothing

End Sub