Userform Updating Problem after For Cycle

[FalconBLUE]

Hi everyone

I'm working on a project and I want to work this macro code. This code running on a userform(with ADO but I designed activeworksheet the below code for tell) and effect another userform label captions.

Anyway, the problem is after the code run erasing previous label caption. I want to see all result on a second userform(userdolap) after the code run complete. Is it possible?

son =activeworksheet.Range("b65536").End(xlUp).Row
For i = 2 To son
                  If  Activeworksheet.Range("c" & i) = "" Then
                    For LB = 4 To 18
                        UserDolap.Controls("Label" & LB).Caption = Activeworksheet.Range("c" & i).Offset(0, -2)
                        LB = LB + 1
                        i = i + 1
                        UserDolap.Controls("Label" & LB).Caption = Activeworksheet.Range("c" & i).Offset(0, -1)
                        LB = LB + 1
                        i = i + 1
                        UserDolap.Controls("Label" & LB).Caption = Activeworksheet.Range("c" & i).Offset(0, 1)
UserDolap.Show 'second userform
                    Next
                  End If
              Next