OK RISOLTO
ho scambiato la posizione

cmdTemp.Parameters.Append cmdTemp.CreateParameter("@cap", adVarChar, adParamInput, 50, cap)
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@CTD", adVarChar, adParamInput, 4, codice)
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@objectType", adInteger, adParamInput, , 0)
incredibile!!!!!!! proprio non capisco!!
GRZIE A TUTTI PER IL SUGGERIMENTO
senza il vostro aiuto sarei ancora a sbattermi i maroni