ADODB.Recordset (0x800A0BB9)

[Pilly]

Por favor alguien me puede ayudar con el error de este código, tengo 3 días buscando el error y nada,.

<%

opcb=Request("opcb")
codigo_catastral=Request("codigo_catastral")
%>


<script language="JavaScript" type="text/JavaScript">
<!--
function llenarform() {
<%
if (opcb=1) then
Dim Conn4, Tabla4
Set Conn4 = Server.CreateObject("ADODB.Connection")
Conn4.Open "DSN=gye"
Set Tabla4=Server.CreateObject("ADODB.recordset")

Temp4 = "Select * from const_inicial where codigo_catastral"& "'"& codigo_catastral & "'"
Tabla4.Open Temp4, Conn3 linea 76 DO WHILE NOT Tabla4.Eof
response.write("main.no_registro.value=""" & trim(Tabla4.fields(0)) & """" & chr(13))
response.write("main.dia_reg.value=""" & trim(Tabla4.fields(1)) & """" & chr(13))
response.write("main.mes_reg.value=""" & trim(Tabla4.fields(2)) & """" & chr(13))
response.write("main.anio_reg.value=""" & trim(Tabla4.fields(3)) & """" & chr(13))

Tabla4.MoveNext
LOOP
End If
%>
}

//-->
</script>

El error es el siguiente:


Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/GYE/Web/report.asp, line 76