ERROR 80020009

Hola amigos,

una página asp me arroja el error 80020009 Ocurrio una excepcion, cuando
intento acceder a los datos de cualquier campo.
Este es el código donde se genera el error:

dim objCon, objRs
if Not ComprobarUsuario then Response.Redirect("Login.asp")
set objCon = Server.CreateObject("AdoDb.Connection")
if Session("Conexion") = "" then EstablecerCadenaDeConexion
objCon.Mode = adModeReadWrite
objCon.CursorLocation = adUseClient
objCon.Open Session("Conexion")
set objRs = Server.CreateObject("AdoDb.Recordset")
objRs.CursorLocation = adUseClient
strCodigo = Request.Form("tCodigo")
intCodigo = cint(strCodigo)
if strCodigo = "-1" then
objRs.Open "SELECT * FROM Inmuebles ORDER BY Codigo",objCon,adOpenKeyset,
adLockOptimistic,adCmdText
else
objRs.Open "SELECT * FROM Inmuebles WHERE Codigo = " &
intCodigo,objCon,adOpenDynamic, adLockOptimistic,adCmdText
Response.Write "Rs Cargado: " & objRs("Codigo") <- EN ESTA LINEA SE
PRODUCE EL ERROR ->
end if

Os agradecería mucho vuestra ayuda ya que no se por donde seguir y me urge
entregar este proyecto.

Un saludo.