下記の場合、以下のSQLエラーとなる
public function bar(optional byval vntFoo As Variant) objOraParam.Add "Foo", vntFoo, ORAPARM_INPUT, ORATYPE_VARCHAR2
実行時エラー:'440' OIP-00005: 変数は正しい日付型ではありません。
VB6.0SP6+oo4o(Oracle10g)
variant型の場合、引数に何も指定しないでバインド変数に渡すとダメらしい。
↓のように書く必要有
public function bar(optional byval vntFoo As Variant) objOraParam.Add "Foo", IIf(IsMissing(vntFoo), NULL, vntFoo), ORAPARM_INPUT, ORATYPE_VARCHAR2