erro criando parametros

[othon 0]

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

[mibnetweb 0]

Tente desta maneira:

 

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

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