Comparing the value of a record against what is submitted Error error '80020009'

Hello everyone,
I am getting a weird error
error '80020009'
I have a form that employees fill out. It's part of their profile with address, city, state, zip etc... When a user goes to the profile and doesn't change anything except their password I get the above error message. Basically I have the form submit and the values are passed via Querystring to a page that is emailed. The emailed page runs some code that does a compare check to see if the value has changed or not and if it has then it updates the record and then posts a message stating that the record has changed. Can someone take a look at the code and let me know where I am going wrong?

Thanks,
Jester

1:
2:
3:
4:
5:
6:

Dim vhome_address1
if objRs("Home_Address") <>  sNewAddress1 OR isnull(objRs("Home_Address").value) then
  vhome_address1 = "Address1 has been changed<br/><blockquote>old value: "& objRs("Home_Address") &"<BR>new value: "& sNewAddress1 &"</blockquote>"
  objRs("Home_Address") = sNewAddress1
  bNoUpdates = false
end if