Invalid use of Null: 'replace'

Hvad går galt her?

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'replace'
s.asp, line 99

koden:
        <%
                            for each x in rs.Fields
                           
                            if instr(UCase(x.value),UCase(strKey)) > 0 Then
                                if x.name <> "password" Then
                                Response.Write(Ucase(x.name) & " :: " & replace(UCase(x.value),UCase(strKey),"<b style=""color: 2E8959"">"&Ucase(strKey)&"</b>")&"<br>")
                                end if
                            end if
                            next
                        %>