ربط Progress Bar بتحميل الداتا

السلام عليكم ..

عملية جلب البيانات هي عملية واحدة , لا يمكن تجزأئتها بشكل افتراضي ... و لكن يمك عمل حل التفافي بحث أنت تجلب جزء من البيانات ثم تقدم الشريط خطوة ثم تجلب جزء البيانات الآخر ثم تقدم الشريط و هكذا .. مثلا :

Dim connection As New SqlConnection("Initial Catalog=DB02;Data Source=.\sqlexpress;Integrated Security=SSPI;")
        Dim command As New SqlCommand("select MAX(ID)  from m ")
        command.Connection = connection
        connection.Open()
        Dim max = command.ExecuteScalar
        Dim itemsPerOneFetch = 2
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = (max / itemsPerOneFetch) + 1

        Dim dt As New DataTable
        Dim adapter As New SqlDataAdapter(command)

        For i = 1 To (max / itemsPerOneFetch) + 1
            command.CommandText = "SELECT * FROM m WHERE ID >= " + Str((i * itemsPerOneFetch) - itemsPerOneFetch) + " AND ID < " + Str(i * itemsPerOneFetch)
            adapter.Fill(dt)
            ProgressBar1.Value = i
        Next
        ProgressBar1.Value = ProgressBar1.Maximum
        DataGridView1.DataSource = dt