كيف اضيف خاصية الاكمال التلقائي للبحث من قاعدة البيانات الى صندق النص (textbox) ؟!

 

[color= #800000;]Private [color= #800000;]Sub Form2_Load[color= #66cc66;](ByVal sender [color= #800000;]As Object, ByVal e [color= #800000;]As System.[color= #66cc66;]EventArgs[color= #66cc66;]) Handles [color= #800000;]Me.[color= #66cc66;]Load

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

        Try

            [color= #800000;]Dim cmd [color= #800000;]As OleDbCommand = [color= #800000;]New OleDbCommand[color= #66cc66;]([color= #ff0000;]"Select [item Part Number] from store", 
Me.[color= #66cc66;]Conn[color= #66cc66;])

            [color= #800000;]Dim reader [color= #800000;]As OleDbDataReader = cmd.[color= #66cc66;]ExecuteReader[color= #66cc66;]([color= #66cc66;])

            [color= #800000;]Dim list [color= #800000;]As [color= #800000;]New AutoCompleteStringCollection

            [color= #800000;]While reader.[color= #66cc66;]Read

                list.[color= #66cc66;]Add[color= #66cc66;](reader.[color= #66cc66;]Item[color= #66cc66;]([color= #ff0000;]"Item Part Number"[color= #66cc66;])[color= #66cc66;])

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

            tbSEARCH.[color= #66cc66;]AutoCompleteMode = AutoCompleteMode.[color= #66cc66;]SuggestAppend

            tbSEARCH.[color= #66cc66;]AutoCompleteSource = AutoCompleteSource.[color= #66cc66;]CustomSource

            tbSEARCH.[color= #66cc66;]AutoCompleteCustomSource = list

 

        Catch ex [color= #800000;]As Exception

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

            Throw ex

 

        [color= #800000;]End Try

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

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