مساعدة في تحديد النتائج

السلام عليكم

أريد مساعدتكم في هذا الكود أريد تحديد عدد النتائج التي تظهر ( فمثلاً عند البحث عن اسم عبدالله وموجود في قاعدة البيانات 20 مرة اسم عبدالله فأريد أن تظهر 10 مرات ثم ينقر على زر التالي تظهر له الـ 10 أسماء الباقية )

الكود هو أرجو منكم المساعدة

 cmd.CommandType = CommandType.Text
            cmd.CommandText = "select name from [book] where nam like '%" & txt1.Text & "%'"

            Dim dr As OleDbDataReader = cmd.ExecuteReader
            If dr.HasRows Then
                While (dr.Read)
                    Label1.Text += dr.Item("name").ToString + "<br/>" + "<br/>"
                End While
            Else
                Label1.Text = "لم يتم العثور عليه"
            End If
            dr.Close()
                    Catch ex As Exception
            Label1.Text = "حدث خطأ"
        Finally