非同期クエリの更新結果の取得について

mQoo 2008-10-22 20:59:35 No: 140692

非同期クエリの更新結果を取得したいのですが、うまくいかず困っております。
テーブルが大きいため時間がかかるので更新をかける前に SELECT COUNT(*) 〜等で調べたくは
ないのです。
非同期で実行しなければうまくいきます。
おそらく実行直後にはまだ更新したものがないため結果が返ってこないと
思うのですが、何かいい知恵がありましたらご教示下さい。
よろしくお願いします。

環境：VB6.0/WinXP

(省略）

sSql = "update〜または insert〜"
set rs = cn.Execute(sSql, RecordsAffected, adAsyncExecute)

Do While(rs.State = adStateExecuting)
(省略）
Loop

Debug.Print(RecordsAffected) ← -1が表示される

(省略）