parametro retornando erro

Olá a todos estou trabalho em um aplicativo asp com bd oracle, eo mesmo esta me retornando erro

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC driver for Oracle]Tipo de parâmetro inválido
/Summer/CoDev/GC/gc_perfil_produto/frmparamfamilia.asp, line 70
E esse são os parametros,

Set objDBCon = Server.CreateObject("ADODB.Connection")
objDBCon.Open StrConn
Set objCmd = Server.CreateObject("ADODB.Command")

'Set CAD = Server.CreateObject("CAD2.Procedure")
Set rs = Server.CreateObject("ADODB.Recordset")

Set objCmd.ActiveConnection = objDBCon
objCmd.CommandText = "PKG_EC_INDICADOR_PRODUTO.ST_EC_LISTA_FAMILIA_S"
objCmd.CommandType = adCmdStoredProc

'columns = Array("p_dc_estrutura_material", _
' "p_cd_estrutura_material")

'Criação de Parametros

Set objparam = objCmd.CreateParameter("P_CD_CICLO",adInteger,adParamInput,3)
objparam.value = aux_nmciclo
objCmd.Parameters.Append objparam

Set objparam = objCmd.CreateParameter("P_CD_VISAO_MATERIAL",adInteger,adParamInput,3)
objparam.value = aux_cdvisaomaterial
objCmd.Parameters.Append objparam

Set objparam = objCmd.CreateParameter("p_cd_estrutura_material",adInteger,adParamOutput,3)
objparam.value = p_cd_estrutura_material
objCmd.Parameters.Append objparam

Set objparam = objCmd.CreateParameter("p_dc_estrutura_material",adVarChar,adParamOutput,200)
objparam.value = p_dc_estrutura_material
objCmd.Parameters.Append objparam

Set rs = objCmd.Execute
não consego encontro esse erro se alguem poder me ajudar agradeço abraço até +