فكرة برنامج محادثة باستخدام قاعدة بيانات

السلام عليكم ورحمة الله وبركاته

احببت ان اصمم محاكي للشات في vb.net

وضعت مربع نص لارسال ما يكتبه المستخدم الى جدول وبالذات عمود chat

عرض المعلومات المرسلة سهلة باستخدام مؤقت لكن ساضطر لحذف مربع النص المسؤول عن عرض المعلومات المرسلة قبل كل تحديث من المؤقت ..

الزبدة السؤال هو هل توجد اداة تربط بعمود معين وتحدث نفسها تلقائيا ؟

------------------------------------------------------------------------------------------

طريقتي تتبين من الاكواد التالية:

بزر الامر المخصص لارسال ما يكتبه المستخدم للقاعدة:

رمز برمجي:

 Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb", con)
        da.Fill(ds, "tb")
        Dim cm As New OleDbCommandBuilder(da)
        Dim dr As DataRow = ds.Tables("tb").NewRow
        dr.Item("chat") = x & ":" & t.Text
        ds.Tables("tb").Rows.Add(dr)
        da.Update(ds, "tb")
        t.Clear()
        Timer1.Enabled = True

وفي التايمر كتبت الكود التالي:

رمز برمجي:

 w.Clear()
        Dim da As New OleDbCommand("select * from tb", con)
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        Dim pr As Data.OleDb.OleDbDataReader = da.ExecuteReader
        Do While pr.Read
            ' w.Text = vbCrLf

            w.Text += vbCrLf & pr.Item("chat")
        Loop
        ' Timer1.Enabled = False
        If con.State = ConnectionState.Open Then con.Close()

ستلاحظ ان محتوى مربع النص المسؤول عن عرض المعلومات من جدول في القاعدة يمسح قبل كل عرض للمعلومات وان لم امسح ؟؟؟ فما الحل؟