How to make Loading while insert data in database?

Question

Please help me i want to  proccesing execute data reader  while insert to database with progress bar 

Private Sub Refresh_Click(sender As Object, e As EventArgs) Handles Refresh.Click
        Dim i As Integer
        Dim Koneksi As New MySqlConnection("Server=localhost;UID=root;Database=pt_laksana;PWD=;port=3306")
        Dim adapter As New MySqlDataAdapter("SELECT no as No,nama_barang as 'Nama Barang',jumlah as Jumlah, date as 'Tgl/Bln/Th', saldo as Saldo, keterangan as Keterangan, mengetahui as Mengetahui, diketahui as Diketahui, action as Action  From data_barang;", Koneksi)
        Dim READER As MySqlDataReader
        Dim COMMAND As MySqlCommand
        Dim dt As New DataTable
        'Menyimpan hasil query
        adapter.Fill(dt)
        'data masuk ke datagrid
        Riwayat_TransaksiDashboard.DataSource = dt
        Try
            Koneksi.Open()
            Dim Query As String
            Query = "select * From pt_laksana.data_barang"
            COMMAND = New MySqlCommand(Query, Koneksi)
            READER = COMMAND.ExecuteReader
            MsgBox("Refresh Data")
            While READER.Read
                Chart1.Series("Series1").Points.AddY(READER.GetInt32("jumlah"))
                Chart1.Series("Series2").Points.AddY(READER.GetInt32("saldo"))

                For i = 1 To 10
                    Riwayat_TransaksiDashboard.Refresh()
                Next
            End While

        Finally
            Koneksi.Close()
        End Try
    End Sub