[Sajad]

السلام عليكم

اولا غير AutoCompeleteSource للtxtSearch الى CustomSource

ثانيا اضف هذا الكود الى دالى FilGrid

PHP كود :

'''''''''''''''''''''''''''''''''''
        For i = 0 To DataSet1.Tables(0).Rows.Count - 1
            txtSearch.AutoCompleteCustomSource.Add(DataSet1.Tables(0).Rows(i)("UName"))
        Next 


ثالثا غير دالة الSearching الى الآتي:

PHP كود :

Private Sub Searching()
        Me.txtName.Text = ""
        Dim DataSet2 As New DataSet
        DataSet2.Clear()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT * FROM tblInfo WHERE UName LIKE '" & Me.txtSearch.Text & "'", Con)
            Call MYDataAdapter.Fill(DataSet2, "UNameTable")

            For i = 0 To DataSet2.Tables(0).Rows.Count - 1

                txtName.Text = DataSet2.Tables(0).Rows(i)("UName")
                txtLocation.Text = DataSet2.Tables(0).Rows(i)("ULocation")
                txtMobile.Text = DataSet2.Tables(0).Rows(i)("Mobile_Num")
                txtPhone.Text = DataSet2.Tables(0).Rows(i)("Phone_Num")

            Next
        End Using
    End Sub 


اعتذر عن عدم رفعي للمثال المعدل لان الاصدار الذي اعمل عليه 2010