Во время цикла Label не показывает значения

Private Sub SendMail_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Dim countcount As Integer
        Dim NumCol As Integer
        Dim countBar As Integer
        Dim arrayMail(,) As String
        Dim X As Integer = 30
 
        On Error GoTo sixError
        Dir.Enabled = False
 
 
        resMail = MsgBox("Начать рассылку?", MsgBoxStyle.YesNo)
 
        If resMail = 6 Then
 
            [B]LabelText.Text = "Идет сбор данных для рассылки."[/B]
            
            dbDivm.Open("Provider=SQLOLEDB.1; Server=192.168.0.123\sqlexpress; Database=xxxx;User ID=xxx;Password=xxxx;Trusted_Connection=False;")
            rstDivm.Open("SELECT ID_Firm, Flag, SUM(Summa) FROM Six GROUP BY ID_Firm, Flag ORDER BY Flag ;", dbDivm, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly)
 
            If (rstDivm.EOF Or rstDivm.BOF) Then
                rstDivm.Close()
                dbDivm.Close()
            Else
                rstDivm.MoveFirst()
                countcount = 0
                countBar = 0
 
 
                 Do While Not (rstDivm.EOF Or rstDivm.BOF)
                    If rstDivm.Fields("Flag").Value = False Then
                        countcount = countcount + 1
                    End If
                    countBar = countBar + 1
                    rstDivm.MoveNext()
                Loop
 
                ProgressBar.Visible = True
                ProgressBar.Maximum = countBar
                rstDivm.MoveFirst()
                ReDim arrayMail(countcount - 1, 3)
                countcount = 0
 
                Do While Not (rstDivm.EOF Or rstDivm.BOF)
                    If rstDivm.Fields("Flag").Value = False Then
                        arrayMail(countcount, 0) = rstDivm.Fields("ID_Firm").Value
                        arrayMail(countcount, 1) = rstDivm.Fields(2).Value
                    Else
                        For i = 0 To UBound(arrayMail)
                            If arrayMail(i, 0) = rstDivm.Fields("ID_Firm").Value Then
                                arrayMail(i, 1) = CInt(arrayMail(i, 1)) - CInt(rstDivm.Fields(2).Value)
                            End If
                        Next
                    End If
 
 
                    countcount = countcount + 1
                    ProgressBar.Value = countcount
                    rstDivm.MoveNext()
                Loop
 
                ProgressBar.Visible = False
                rstDivm.Close()
                dbDivm.Close()
 
            End If
 
            ProgressBar.Visible = True
            ProgressBar.Maximum = UBound(arrayMail)
 
            For i = 0 To UBound(arrayMail)
 
                dbDivm.Open("Provider=SQLOLEDB.1; Server=192.168.0.123\sqlexpress; Database=xxx sql;User ID=xx;Password=xxxxx;Trusted_Connection=False;")
                rstDivm.Open("SELECT ID, Klient, Email FROM Klienti WHERE ID='" & arrayMail(i, 0) & "';", dbDivm, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly)
 
                If (rstDivm.EOF Or rstDivm.BOF) Then
                    rstDivm.Close()
                    dbDivm.Close()
                Else
                    rstDivm.MoveFirst()
                    arrayMail(i, 0) = rstDivm.Fields("Klient").Value
                    arrayMail(i, 2) = rstDivm.Fields("Email").Value
                    rstDivm.Close()
                    dbDivm.Close()
                End If
 
                ProgressBar.Value = i
 
            Next
 
            TextBoxMail.Visible = True
 
            ProgressBar.Maximum = UBound(arrayMail)
 
            For i = 0 To UBound(arrayMail)
                TextBoxMail.Text = TextBoxMail.Text & "'" & arrayMail(i, 0) & "' (" & arrayMail(i, 1) & ") eMail: " & arrayMail(i, 2) & vbCrLf
                ProgressBar.Value = i
                [B]LabelBar.Text = i & "/" & UBound(arrayMail)[/B]
 
 
            Next
 
            ProgressBar.Visible = False
 
            resMail = MsgBox("Операция завершена!" & vbCrLf & "Распечатать отчет?", MsgBoxStyle.YesNo)
 
 
            If resMail = 6 Then
                Dir.Enabled = True
                Me.Close()
            Else
                Dir.Enabled = True
                Me.Close()
            End If
        End If
 
 
        Exit Sub