Visual Basic - Ciclos Do While anidados

'CICLO EXTERIOR (DE LOS INVERSORES)(principio Rs)

tfin = 0

Rs.Open "SELECT * FROM inversores ORDER BY inversor", Cn, adOpenStatic, adLockPessimistic

Rs.MoveFirst

Do While tfin < cuantosinvx   'cuantosinv es el nro de inversores 

    inversorx = Rs.Fields.Item(1)

    CurrentX = 500

    CurrentY = CurrentY + 500

    Print inversorx

    'CICLO INTERIOR (PLATAFORMAS principio Rs1)

    Rs1.Open "SELECT * FROM plataforma ORDER BY platform", Cn, adOpenStatic, adLockOptimistic

    Rs1.MoveFirst

    CurrentY = CurrentY - 100

    Do While j < cuantasplatx   'cuantasplatx es el nro de plataformas

     platformx = Rs1(1)

     CurrentX = 1300

      CurrentY = CurrentY - 100

      Print platformx

       Rs2.Open "SELECT SUM(importe) AS importex FROM remesas WHERE inversor = """ & inversorx & """ AND platform = """ & platformx & """ ", Cn, adOpenStatic, adLockOptimistic

      If Not IsNull(Rs2(0)) Then

        importex = Rs2(0)

        Else

         importex = 0

      End If

      CurrentX = 3000

      CurrentY = CurrentY - 100

        Print importex

      Rs2.Close

      Rs1.MoveNext 'Mover a la siguiente plataforma

         j = j + 1

      Loop   'Ciclo de las plataformas Rs1

      Rs1.Close      'cerramos el Recordset de las plataformas  

      Rs.MoveNext 'Mover al siguiente inversor

      tfin = tfin + 1

 Loop  'Ciclo EXTERIOR (de los inversores Rs)

 tfin = 0

 Rs.Close