RichTextBox وقواعد البيانات

بسم الله الرحمن الرحيم
اللهم صل على محمد وآل محمد
السلام عليكم ورحمة الله وبركاته

بعد تأخر طويل على آخر مرة قد كتبته فيه أعود إليكم بحل سؤال قد وجدت له إجابة بالتعاون مع الأخ
VbHelper .. جزاه الله خيراً في هذا الموضوع كيفية قراءة السجل التالي .. وتوصلت إلى الحل ..

السؤال كان ..
كيف أقرأ تنسيقات RichTextBox مع التنقل بين السجلات ..
للقراءة سنستخدم هذا الكود ..

Public Sub ReadW()

        Dim reader As New OleDbCommand("select ex from data", Conn)

        reader.Connection.Open()

        Dim dr As OleDbDataReader = reader.ExecuteReader()

        dr.Read()

        RichTextBox1.Rtf = dr.GetString(0)

        reader.Connection.Close()

        dr.Close()

    End Sub

هذا فقط للقراءة سجل واحد فقط ..
ولكن كيفية التنقل الآن ؟؟ سيتكرر النص الخاص بالسجل الأول فقط !!
لذلك سنستعمل الكود التالي ..

RichTextBox1.Rtf = DataSet1.Tables.Item("data").Rows(XP)("ex")

وهذا السطر تعبت حتى حصلت عليه وهو يقوم بقراءة كل سجل مع التنسيقات ..
ولكن هناك أيضاً مشكلة ..
وهي إذا رجعت للزر السابق لن يقرأ التنسيق الخاص به ..

يجب عليك حذف هذه الجملة إذا كنت قد كتبتها 

RichTextBox1.DataBindings.Add("Text", DataSet1, "data.ex")

تمت الإجابة على هذا السؤال ويمكنكم متابعة الموضوع بالتفصيل على هذا الرابط كيفية قراءة السجل التالي ..