[5分]大神帮我分析一下代码，难道是我眼睛花了，怎么一直执行不到MsgBox S 那一行？？？

    S = 0
    Do While S <= 2
        Select Case S
        Case 0
            AShift = "早"
        Case 1
            AShift = "中"
        Case 2
            AShift = "夜"
        End Select
         
        strSQL = "SELECT Output_Date,WorkingShift,Grade FROM [tblOutput] where WorkingShift=" & SQLText(AShift) & " order by Output_Date"
        Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
        d = 1
        Do While d <= 31
            rst!Grade = oappwork_Sheet1.Cells(4 * d + S, 6)
            Debug.Print d & AShift & rst!Grade
            rst.Update
            rst.MoveNext
            clsPB.Value = clsPB.Value + 1
            d = d + 1
        Loop
        S = S + 1
        MsgBox S '就是不会执行到这一句，怪了......
    Loop
    rst.Close