ADODB.Field error '800a0bcd'

[edyguz80]

ya busque y busque y nada, este es el codigo hasta donde me manda el error

<%
Dim proc_SE_ENTERO_VER__ID_SE_ENTERO
proc_SE_ENTERO_VER__ID_SE_ENTERO = "0"
if(Request.Form("ID_SE_ENTERO") <> "") then proc_SE_ENTERO_VER__ID_SE_ENTERO = Request.Form("ID_SE_ENTERO")
%>
<%
set proc_SE_ENTERO_VER = Server.CreateObject("ADODB.Command")
proc_SE_ENTERO_VER.ActiveConnection = MM_BD_Intranet_STRING
proc_SE_ENTERO_VER.CommandText = "dbo.proc_SE_ENTERO_VER"
proc_SE_ENTERO_VER.Parameters.Append proc_SE_ENTERO_VER.CreateParameter("@RETURN_VALUE" , 3, 4)
proc_SE_ENTERO_VER.Parameters.Append proc_SE_ENTERO_VER.CreateParameter("@ID_SE_ENTERO" , 16, 1,1,proc_SE_ENTERO_VER__ID_SE_ENTERO)
proc_SE_ENTERO_VER.CommandType = 4
proc_SE_ENTERO_VER.CommandTimeout = 0
proc_SE_ENTERO_VER.Prepared = true
set rsSE_ENTERO = proc_SE_ENTERO_VER.Execute
rsSE_ENTERO_numRows = 0
%>


<tr>
<td height="40" colspan="2" class="campo">&iquest;C&oacute;mo se entero de ProEmpleo?<br>
<span class="textocampo"><%= rsSE_ENTERO.Fields.Item("SE_ENTERO").Value %></span>
<input name="ID_SE_ENTERO" type="hidden" id="ID_SE_ENTERO" value="<%=Request.Form("ID_SE_ENTERO")%>"><br>
<span class="textocampo"><%=Request.Form("SEENTERO")%></span>
<input name="SEENTERO" type="hidden" id="SEENTERO" value="<%=Request.Form("SEENTERO")%>">&nbsp;
</td>


la parte que esta en negritas, es la que marca el error
Como lo ven???