こういうこと？
Dim sql String

　Set rdRs = rdCn.OpenResultset(sql)

上間違って送信しちゃった・・・
こういうこと？
Dim sql String
Dim 商品名 String

sql =select ......
Sql = sql + 商品名.....

　Set rdRs = rdCn.OpenResultset(sql)

他の掲示板で見つけました。

oo4oで
－－
Public Const ORAPARM_OUTPUT = 2
Public Const ORATYPE_VARCHAR2 = 1

OraDataBase.Parameters.Add ret, 0, ORAPARM_OUTPUT
set pret = OraDataBase.Parameters(ret)
pret.ServerType = ORATYPE_VARCHAR2

OraDataBase.ExecuteSql begin select dummy into :ret from dual; end;
wscript.echo pret.value
－－
とか
－－
Public Const ORASQL_DEFAULT = &H0
Dim OraSqlStmt

Set OraSqlStmt = OraDatabase.CreateSql( _
begin select dummy into :ret from dual; end;, ORADB_DEFAULT)

OraSqlStmt.Refresh
－－

で、できるみたいです。
私はoo4o全然しらないので私的には未確認ですが・・・。

オラクルに関することは、ここで聞いてみるといいと思います。
(質問するにはユーザー登録がいるようですが・・・)
http://otn.oracle.co.jp/forum/index.html

尚、本件について解決したらこちらの掲示板にも結果報告してくださいね。

？さん、ぴのきよさん返信ありがとうございます。

返信がおそくなりすみません。。

ぴのきよさんのExecuteSql版、CreateSql版
共に取得に成功しました♪♪

CreateSql版の方は、下記の２行をOraSqlStmt.Refreshの前に追加しました。
OraDatabase.Parameters.Add ret, 0, ORAPARM_OUTPUT
OraDatabase.Parameters(ret).serverType = ORATYPE_NUMBER

本当に助かりました。
ありがとうございます。

ＰＳ：ぴのきよさんに教えて頂いたORACLE掲示板も今後活用させて頂きます。