Show percentage of progress bar while execute long process of store procedure.

<appSettings>
    <add key="CON" value="Data Source=SERVER;Initial Catalog=Reporting;Persist Security Info=True;User ID=user; password =123"/>
    <add key="AsynCON" value="Data Source=SERVER\MBWIN;Initial Catalog=Reporting;Persist Security Info=True;Asynchronous Processing=true;User ID=user; password =123"/>
  </appSettings>

Private Sub CmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTest.Click
        Dim myWatch = New Stopwatch() '' use stopWath class to keep track of performent.
        myWatch.Start()
        timeCount = 0
        Dim strAsyn = ConfigurationManager.AppSettings("AsynCON")
        SQLAsynConnect = New SqlConnection(strAsyn)

        dtData = New DataTable
        'dataAdabter = New SqlDataAdapter
        command = New SqlCommand
        command.CommandType = CommandType.StoredProcedure
        command.Connection = SQLAsynConnect
        command.CommandText = "Ysp_LoanProvisionWeekly"
        command.CommandTimeout = 3000
        command.Parameters.Add("@BRANCHCODE", SqlDbType.NVarChar).Value = "KCM"
        SQLAsynConnect.Open()

        Dim myResult As IAsyncResult = command.BeginExecuteReader()
        While Not myResult.IsCompleted
            timeCount = timeCount + Double.Parse(Convert.ToDecimal(myWatch.Elapsed.TotalSeconds.ToString()))
            pgrPer3.Value = timeCount '' progress bar pgrPer3
            If timeCount = 100 Or timeCount > 100 Then
                timeCount = 0
            End If
        End While
        myReader = command.EndExecuteReader(myResult)
        myWatch.Stop()
        dtData = New DataTable()
        dtData.Load(myReader)
        pgrPer3.Value = 100
        dgData.DataSource = dtData
    End Sub