Private Function FindRow(ByVal strSourceText As String)
        If strSourceText <> "" And Not m_tblSourceGrid Is Nothing Then
            Dim SourceTable As DataTable = CType(m_tblSourceGrid.DataSource.DataSource, DataTable)
            If Not SourceTable Is Nothing Then
                Dim dr = SourceTable.Rows.Cast(Of DataRow)().Where(Function(m) m.ItemArray().Select(Function(i) i.ToString()).Any(Function(p) p.Contains(strSourceText)))
                If dr.Count = 0 Then Return Nothing Else Return dr.First()
            End If
        End If


        Return Nothing
    End Function