erro criando parametros

estou tentando chamar uma function passando alguns parametros.

mas estou com o seguinte erro na criação dos parâmetros

***************************************************************************

tun-time error'3708'

objeto parameter definido incorretamente. As informações inconsistentes ou incompletas.

***************************************************************************

valews...

Public Function chamaFunction(codOp As Integer) As Boolean

Dim retorno

Dim con As ADODB.Connection

Dim cmd As ADODB.Command

Set con = New ADODB.Connection

con.ConnectionString = "Provider=MSDAORA.1;Persist Security Info=true;User ID=" & nomeGabinete & ";Password=" & strPw & ";Data Source=atrium"

con.Open

Set cmd = New ADODB.Command

Set cmd.ActiveConnection = con

cmd.CommandType = adCmdStoredProc

cmd.CommandText = "FUN_DEL_EMAIL"

cmd.Parameters.Append cmd.CreateParameter("cod_pessoa", adNumber, adParamInput, 20, cod_Pessoa)

cmd.Parameters.Append cmd.CreateParameter("cod_email", adNumber, adParamInput, 12, cod_email)

Set retorno = cmd.Execute

MsgBox ("Executou!!!")

chamaFunction = True

con.Close

End Function