Consulta Con Dos Parametros

[Subotai]

Lo que te esta pasando es que estas intentando pasar como argumento un parametro que pertenece a un tipo de dato diferente del que hay en la bd.
Me juego el cuello a que ese campo id es numerico o autonumerico, en asp todas las variables son de tipo variant por lo que te sale ese error
prueba esto:
<%
codproducto=cint( request.form("codproducto") )

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "deportes"
'+++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++
sql="select * from producto where codproducto='"&codproducto&"'"
set rs=createobject("ADODB.Recordset")
rs.open sql,conn

Suerte!!!