Я искал «доказательство» почему это случается и docs кажутся довольно несуществующий.
Некоторые из предметов данных не переводят 1 to-1 с типами данным по Oракул….даже если они «».
Должно также быть типы данным по Oракул OLEDb специфически составляют карту 1 to-1. Как: OLEDBType.Decimal
Попытайтесь следующий изменение и см. если оно работает, то (возможно также попытайтесь adDecimal или OLDDBtype выше):
.ParameterB.Append .CreateParameter («param1», adInteger, adParamInput, vdblDocNum)
.ParameterB.Append .CreateParameter («ErrNum», adInteger, adParamOutput, intErrValue)