質問です。

VB6（SP5）の環境で、ADO6.0（SP4）を使ってACCESS2003（SP2）のmdbファイルを
読み書きするプログラムを作っています。

普通にSELECTしてレコードセットを作って〜という部分は、
意図した通りの動きをしているのですが、SELECT文中でLIKE演算子を
使った部分でレコードが無いという結果になっています。

VB中で使っているSQL文を、ACCESSのクエリに貼って動かしてみると、
きちんとレコードが選択されるので、何が問題なのか絞り込めずにいます。

ソースは以下のようになってます。

Private Sub foge()
　　　　Dim cn as New ADODB.Connection
　　　　Dim rs as New ADODB.Recordset
　　　　Dim strSQL as String
　　　　strSQL = "select A, B from T where C like 'X*' order by A"
　　　　rs.Open strSQL, cn, adOpenKeyset, adLockReadOnly
　　　　Do While (rs.EOF = False)
　　　　　　　　' この辺にレコードの処理
　　　　Loop
　　　　rs.Close
　　　　Set rs = Nothing
　　　　cn.Close
End Sub

動きとしては、レコードが選択されない→ループの中に入らない、という状態です。