SQL Searh in ALL DataBase

CREATE Proc Search
(
    @SearchStr nVarChar(100)
)
AS
Begin
 
    CREATE TABLE #Results ( TableName nVarChar(370), 
                            ColumnName nVarChar(370), 
                            ColumnValue nVarChar(3630))
 
    SET NoCount ON
 
    Declare @TableName nVarChar(256), 
            @ColumnName nVarChar(128),
            @SearchStr2 nVarChar(110),
            @ColumnValue nVarChar(4000)
 
    SET    @TableName   =   ''
    SET    @SearchStr2  =   QuoteName('%' + @SearchStr + '%','''')
 
    While @TableName IS NOT NULL
    Begin
        SET @ColumnName = ''
        SET @TableName  = 
        (
            SELECT  Min(QuoteName(TABLE_SCHEMA) + '.' + QuoteName(TABLE_NAME))
            FROM    INFORMATION_SCHEMA.TABLES
            WHERE   Table_TYPE = 'BASE Table'
            AND     QuoteName(TABLE_SCHEMA) + '.' + QuoteName(TABLE_NAME) > @TableName
            AND     ObjectProperty  (
                                        Object_Id(QuoteName(TABLE_SCHEMA) + '.' + QuoteName(TABLE_NAME)),
                                        'IsMSShipped'
                                     ) = 0
        )
 
        While (@TableName IS NOT NULL) AND (@ColumnName IS NOT NULL)
        Begin
            SET @ColumnName =
            (
                SELECT  Min(QuoteName(COLUMN_NAME))
                FROM    INFORMATION_SCHEMA.COLUMNS
                WHERE   TABLE_SCHEMA    =    PARSENAME(@TableName, 2)
                AND     TABLE_NAME      =    PARSENAME(@TableName, 1)
                AND     DATA_TYPE       IN   ('char', 'VarChar', 'nchar', 'nVarChar', 'int', 'decimal')
                AND     QuoteName(COLUMN_NAME) > @ColumnName
            )
 
            IF @ColumnName IS NOT NULL
            Begin
                INSERT INTO #Results
                Exec
                (
                    'Select ''' + @TableName + ''', ' +
                    '''' + @TableName + '.' + @ColumnName + ''', ' +
                    'LEFT(' + @ColumnName + ', 3630) From ' + @TableName + ' (NOLOCK) Where ' + @ColumnName + ' LIKE ' + @SearchStr2
                )
            End
        End   
    End
 
    SELECT    TableName, ColumnName, ColumnValue
    FROM    #Results
 
End