لم يتم تحديث نتائج البحث في الفورم؟؟

 

[color= #800000;]Private [color= #800000;]Sub btnSearch_Click[color= #66cc66;](ByVal sender [color= #800000;]As System.[color= #66cc66;]Object, ByVal e [color= #800000;]As System.[color= #66cc66;]EventArgs[color= #66cc66;]) Handles
 btnSearch.[color= #66cc66;]Click

        DataSet1 = [color= #800000;]New DataSet

        tbSearchResultItemDeascriptions.[color= #66cc66;]DataBindings.[color= #66cc66;]Clear[color= #66cc66;]([color= #66cc66;])

        [color= #800000;]Static m [color= #800000;]As [color= #800000;]Integer = [color= #cc66cc;]0

        [color= #800000;]If tbSEARCH.[color= #66cc66;]Text = [color= #800000;]Trim[color= #66cc66;]([color= #ff0000;]""[color= #66cc66;]) [color= #800000;]Then [color= #800000;]Exit [color= #800000;]Sub

        ExactSearch[color= #66cc66;]([color= #66cc66;])

        Conn.[color= #800000;]Open[color= #66cc66;]([color= #66cc66;])

        [color= #800000;]Dim DataAdapter1 [color= #800000;]As [color= #800000;]New OleDbDataAdapter[color= #66cc66;](SQLstr, Conn[color= #66cc66;])

 

        DataAdapter1.[color= #66cc66;]Fill[color= #66cc66;](DataSet1, [color= #ff0000;]"store"[color= #66cc66;])

 

        Conn.[color= #800000;]Close[color= #66cc66;]([color= #66cc66;])

        tbSearchResulItemPartNumber.[color= #66cc66;]DataBindings.[color= #66cc66;]Clear[color= #66cc66;]([color= #66cc66;])

        tbSearchResultItemDeascriptions.[color= #66cc66;]DataBindings.[color= #66cc66;]Clear[color= #66cc66;]([color= #66cc66;])

        tbSearchResultItemLocation.[color= #66cc66;]DataBindings.[color= #66cc66;]Clear[color= #66cc66;]([color= #66cc66;])

 

        tbSearchResulItemPartNumber.[color= #66cc66;]DataBindings.[color= #66cc66;]Add[color= #66cc66;]([color= #ff0000;]"Text", DataSet1, [color= #ff0000;]"store.Item Part Number"
[color= #66cc66;])

        tbSearchResultItemDeascriptions.[color= #66cc66;]DataBindings.[color= #66cc66;]Add[color= #66cc66;]([color= #ff0000;]"Text", DataSet1, [color= #ff0000;]"store.Item Descript
ions"[color= #66cc66;])

        tbSearchResultItemLocation.[color= #66cc66;]DataBindings.[color= #66cc66;]Add[color= #66cc66;]([color= #ff0000;]"Text", DataSet1, [color= #ff0000;]"store.Item Location"[color= #66cc66;])

 

        DataGridView1.[color= #66cc66;]DataSource = DataSet1

 

        DataGridView1.[color= #66cc66;]DataMember = [color= #ff0000;]"store"

 

        [color= #800000;]If [color= #800000;]Me.[color= #66cc66;]BindingContext[color= #66cc66;](DataSet1, [color= #ff0000;]"store"[color= #66cc66;]).[color= #800000;]Count = [color= #cc66cc;]0 [color= #800000;]Then

            [color= #800000;]MsgBox[color= #66cc66;]([color= #ff0000;]"No Result??!! "[color= #66cc66;])

            Form1.[color= #66cc66;]Show[color= #66cc66;]([color= #66cc66;])

            [color= #800000;]Me.[color= #800000;]Close[color= #66cc66;]([color= #66cc66;])

        [color= #800000;]End [color= #800000;]If

 

        [color= #800000;]Exit [color= #800000;]Sub

 

    [color= #800000;]End [color= #800000;]Sub