クエリ表示と、ADOで抽出したレコードセットが違う

質問

Accessで作ったクエリで表示されるデータと、VBAでSQLを組んでそのクエリから抽出したデータが異なるので困っています。

ちょっと言葉では説明しにくいので表で説明します。

元となるテーブル(t_test)がたとえば以下のようになっているとします。

t_test
顧客id　　商品id
1　　　　　　A-1
2　　　　　　A-2
3　　　　　　B-1
4　　　　　　A-1

これを元に、以下のようなクエリ(q_test)を作ります。

q_test
顧客id　　商品id　　式1: IIf([商品id] Like "A*",1,0)
1　　　　　　A-1　　　　1
2　　　　　　A-2　　　　1
3　　　　　　B-1　　　　0
4　　　　　　A-1　　　　1

VBAで以下のようなSQLを実行すると、なぜか式1の値が全て0となります。

sql = "SELECT * FROM q_test"
1　　　　　　A-1　　　　0
2　　　　　　A-2　　　　0
3　　　　　　B-1　　　　0
4　　　　　　A-1　　　　0

式1でLIKEを使っていることが原因なのか、
IIf([商品id] = "A-1",1,0)
とかだと、クエリとSQLの結果に違いはありません。
IIｆだけでなくSwitchを使った場合も同様（LIKEだとおかしい、=だと平気）でした。

ちなみに、Accessのバージョンは2003、VBAで使っているレコードセットはADODBです。
（今確認したところ、DAOでは問題なくできました。）

冒頭で、困っていると書きましたが、これを回避する方法はいくつか思いついていますので、
別の方法を教えていただきたいわけではなく、単純になぜこのようなことが起きるのかが知りたいです。
是非よろしくお願いします。

回答No.2

imogasi

クエリのデザイングリッドのところでSQLビューを表示すると、SQL文がどういうようになっているか分かるのではないですか。
＜－－ここがミソ
そのSQL文を間違いなく写して
Sub test15()
Dim dbs As DAO.Database
Dim rs As DAO.Recordset

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("select 氏名,住所 from 社員３")
rs.MoveFirst
Do Until rs.EOF
MsgBox rs!住所
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
dbs.Close: Set dbs = Nothing
End Sub
でselect 氏名,住所 from 社員３の部分を変えて
そのSQL文で実行して何かヒントが得られないですか。
（ちなみに上記は私のテストデータでは動きます。）
ADOでやるならSQL文で開くコードでやってみるとか。