[XL] XLODBC.XLA を使用し NULL フィールドを含むデータを取得する際の問題

現象

サンプル プログラム

  Sub SQLORA ()
      Dim con As Variant
      on = SQLOpen("DSN=ABUORA72;DBQ=p:kkpsscat;UID=ABU;PWD=Excel", , 2)
      SQLExecQuery con, "select * from NULLDATA"
      SQLRetrieve con, Range("Sheet1!A1"), , , True
      SQLClose con
  End Sub

テーブル [NULLDATA] の内容              実行結果
-------------------------------------+--------------------------------------
Fld1 (char)  Fld2 (char)  Fld3 (num)   Fld1 (char)  Fld2 (char)  Fld3 (num)
aaa1          bbb1         1            aaa1         bbb1         1
aaa2                       2            aaa2         aaa2         2
aaa3                       3            aaa3         aaa3         3