بطي في عرض او جلب البيانات من القاعدة

كود :
Imports System.Data.OleDb



Public Class Form1



    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB_FLP.mdb;Jet OLEDB:Database Password=")



    Dim dp As New OleDbDataAdapter("Select * From Tbl", con)

    Dim ds As New DataSet



    Dim dt As DataTable



    Dim num2 As Integer

    Dim i As Integer = 0

    Dim j As Integer = 100



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click





        Try

            dp.Fill(ds)

            dt = ds.Tables.Item(0)

            num2 = (dt.Rows.Count - 1)

            Me.FlowLayoutPanel1.Controls.Clear()



            Do While (i <= num2)



                Dim uc As New UserControl1

                uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString

                Me.FlowLayoutPanel1.Controls.Add(uc)

                i += 1

                If i = j Then Exit Do

            Loop

        Catch ex As Exception

            MsgBox(ex.Message)

            Exit Sub

        End Try

        Button2.Enabled = True

        Button3.Enabled = True

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        j = j + 100



        Try



            Me.FlowLayoutPanel1.Controls.Clear()



            Do While (i <= num2)



                Dim uc As New UserControl1

                uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString

                Me.FlowLayoutPanel1.Controls.Add(uc)



                i += 1

                If i = j Then Exit Do

            Loop

        Catch ex As Exception

            MsgBox(ex.Message)

            Exit Sub

        End Try

    End Sub



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        j = j - 100 : If j < 0 Then j = 100

        i = i - 200 : If i < 0 Then i = 0





        Try



            Me.FlowLayoutPanel1.Controls.Clear()



            Do While (i <= num2)

                If i >= j Then Exit Do

                Dim uc As New UserControl1

                uc.Label1.Text = dt.Rows.Item(i).Item("nam").ToString

                Me.FlowLayoutPanel1.Controls.Add(uc)



                i += 1



            Loop

        Catch ex As Exception

            MsgBox(ex.Message)

            Exit Sub

        End Try

    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Button2.Text = "التالي"

        Button2.Enabled = False

        Button3.Text = "السابق"

        Button3.Enabled = False

    End Sub



End Class