Invalid use of Null: 'Replace'

Hej,

Jeg har lidt problemer med en funktion som indsætter smileys i en variabel. Men når den udfører funktionen så giver det fejlen "Invalid use of Null: 'Replace' ".

Den linier der fejler ser sådan ud:
XTrim = Replace(XTrim, smil("start"), smil("slut"))

Der er en sikring der sørger for at variablen ikke er tom:
If NOT Trim(tblKampe("beskrivelse")) = "" then
                                        Response.Write XTrim(tblKampe("beskrivelse"), False)
                                    End if
Og der er også en sikring på kaldet til databasen:
If NOT (smil.EOF OR smil.BOF) then .....

Hvad kan være galt??