Problemas con Command

Hola a todos:

Estoy recien comenzando a trabajar con los objetos command y estoy un poco
perdido con el error
que arroja, el siguiente código es el que utilizo

Set conexion=Server.CreateObject("ADODB.Connection")
conexion.ConnectionString=StrConn
conexion.Open

set Pr=Server.createobject("ADODB.parameter")
Set Cmd = Server.CreateObject("ADODB.Command")

dim retorno
Set Pr=Cmd.CreateParameter("@productID",adInteger,adParamInput,4,1)
Cmd.Parameters.Append Pr
' -> Linea del
error

Cmd.CommandText = "departamento"
Cmd.CommandType = 4 'adCmdStoredProc
Cmd.ActiveConnection = StrConn

Cmd.Execute

y me indica el siguiente error, "Argumentos incorrectos, fuera del
intervalo
permitido o en conflicto con otros."

Si alguien me puede orientar o sugerir alguna solucion, muchas gracias

Atte,
Claudio Valdés