Заполнение ProgressBar при считывании из БД - VB

Формулировка задачи:

Как отобразить заполнения ProgressBar при считывания из sql базы данных

Решение задачи: «Заполнение ProgressBar при считывании из БД»

textual
                            Листинг программы 
                        

                             Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Server = ServerTextBox.Text
        DB = DBTextBox.Text
        User = UsernameTextBox.Text
        Password = PasswordTextBox.Text\
        Try
            Try
                If My.Computer.Network.Ping(Server) Then
                    conn.ConnectionString = "Data Source=" & Server & ";Database=" & DB & ";User Id=" & User & ";Password=" & Password & ";"
                    conn.Open()
                    Form1.Show()
                    Me.Close()
                End If
            Catch f As Exception
                MsgBox("Соединение отсуствует", MsgBoxStyle.Critical)
            End Try
        Catch ex As Exception
            MsgBox("Неправильный ввод данных")
        End Try
    End Sub
                        