Visual Basic - Error en ejecucion de Procedimiento Almacenado

Hola a todos.

Trabajo con SQLServer y VB, me arroja el error -2147217887 La operacion de multiples pasos de OLEDB genero errores. Compruebe los errores de estado de OLEDB si es posible. No se realizo ningun trabajo.

Al ejecutar el siguiente SP.

Set BD = New ADODB.Connection
BD.Open Cadena de conexion
Set cmd=New ADODB.Command
cmd.ActiveConnection = BD
cmd.CommandType= adCmdStoredProc
cmd.CommandText = "ProcedimientoA"
cmd.Parameters.Append cmd.CreateParameter( "@Num",adInteger,adParamInput, ,text1.text)
cmd.Parameters.Append cmd.CreateParameter("@P1",adDecimal,adParamInput, ,text2.text)
cmd.Parameters.Append cmd.CreateParameter("@P2",adDecimal,adParamInput, ,text3.text)
cmd.Parameters.Append cmd.CreateParameter("@P3",adVarChar,adParamInput, 20,text1.text)
cmd.Parameters.Append cmd.CreateParameter("@POut",adVarchar,adParamOutput)
Set Rs=cmd.Execute

En el SP estan definidos los parametros:
@Num int,
@P1 Decimal(5,3),
@P2 Decimal(5,3),
@P3 nchar(4000),
@POut nChar(5) output ,

Ayuda urgente.
El sp se ejecuta bién, creo que el problema va por el tipo de parametro.

Atte