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