سؤال حيرني في حلقة التكرار Do ارجو المساعده

كود :
Public Function AQarNT(txt As String)



aqar1 = 0

aqar2 = 0

I = 0

SQLE = "SELECT * FROM Aqarat WHERE datet"

Set RenE1 = Dbd.OpenRecordset(SQLE, dbOpenDynaset)

If RenE1.EOF = False Then

    Do While Not RenE1.EOF

        If Day(Date) >= Day(RenE1("datet")) >= (Day(Date) - 7) Then

        I = I + 1

        SQLE1 = "SELECT * FROM Maneg WHERE sn = " & RenE1("sn")

        Set RenE2 = Dbd.OpenRecordset(SQLE1, dbOpenDynaset)

            If RenE2.EOF = False Then

                Do While Not RenE2.EOF

                    If Month(Date) = Month(RenE2("mdate")) Then

                    aqar1 = aqar1 + 1

                    End If

                RenE2.MoveNext

                Loop

            Else

            aqar2 = aqar2 + 1

            End If

    RenE1.MoveNext

        Else

   

        End If

    

    Loop



End If

AQarNT = "ÚÏÏ ÇáÚÞÇÑÇÊ ÇáÊí ÇÓÊÍÞÊ : " & I & " , ãäåÇ : " & aqar2 & " ÛíÑ ãÏÝæÚ æ : " & aqar1 & " ãÏÝæÚ "

End Function