[Sajad]

السلام عليكم

اولا امسح الكود الاول من دالة الFillGrid

وغير دالة الSearching الى التالي:

PHP كود :

Private Sub Searching()
        Me.txtName.Text = ""
        Dim DataSet2 As New DataSet
        DataSet2.Clear()


        Using MYDataAdapter As New OleDbDataAdapter("SELECT * FROM tblInfo", Con)
            Call MYDataAdapter.Fill(DataSet2, "UNameTable")

            For i = 0 To DataSet2.Tables(0).Rows.Count - 1
                Dim ss() As String = DataSet2.Tables(0).Rows(i)("UName").ToString().Split(" ")
                For j = 0 To ss.Length - 1
                    If (ss(j) = txtSearch.Text) Then
                        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")
                    End If
                Next
            Next
        End Using 


بالتوفيق ان شاءالله