AccessVBA SQL あいまい検索ができない。

Question

Access2013　32bit（Windows10 64bit ver.20H2）を勉強中の初心者です。
ADOでのSQLのあいまい検索にて、うまく抽出できません。

デザインビューからのクエリだと同じ条件でも抽出できるのですが、
下記ソースだと、Recordsetの中身が空になってしまい、SQLを実行しても抽出できません。

SQLの記述か、Recordsetの設定が間違っているのか、他に原因がありそうか、
お手数ですがご教示ください。

該当のソースコード

Private Sub コマンド0_Click()

  '▼ 1. DB接続準備
  Dim CN As ADODB.Connection
  Dim RS As ADODB.Recordset
  Dim SQL As String

  Set CN = CurrentProject.Connection
  Set RS = New ADODB.Recordset

  
  '▼ 2. 抽出
  SQL = ""
  SQL = SQL & "SELECT * " & vbCrLf
  SQL = SQL & "  FROM T_テスト用TB" & vbCrLf
  SQL = SQL & " WHERE (" & vbCrLf
'  SQL = SQL & "        and (日時 like '2020/04/28 7:30:00')" & vbCrLf ’ '← ※この条件だと抽出できます
  SQL = SQL & "        and (日時 like '2020/04/28*')" & vbCrLf '← ※こちらに条件を変更すると抽出できなくなります
  SQL = SQL & "       )" & vbCrLf
  
  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  
  Debug.Print ""
  Debug.Print Now() & " =============="
  Debug.Print SQL
  Debug.Print "-----------------------"
     
  '▼ 3. 結果出力
  If RS.EOF = False Then
  
    Do Until RS.EOF
      Debug.Print RS!商品名 
      RS.MoveNext
      
    Loop
    
    Debug.Print ""
    MsgBox "SQL実行：抽出完了しました"

  Else
    Debug.Print ""
    MsgBox "SQL実行：該当件数は 0 です"
    
  End If
   
  '▼ 4. DB接続解除
  RS.Close: Set RS = Nothing
  CN.Close: Set CN = Nothing
   
End Sub

試したこと

ADO接続をDAOに変えてみましたが、結果は同じでした。

'上記ソースの「'▼ 1. DB接続準備」部を以下に書き換え、
'変数名「CN」使用部をすべてコメントアウトしました。
  Dim RS As Recordset
  
  Set RS = CurrentDb.OpenRecordset("T_T_テスト用TB", dbOpenDynaset)

Answer 1

日時フィールドのデータ型は、テキスト型ですか、それとも日付/時刻型ですか。
通常は日付/時刻型だと思いますが、だとしたら、Likeを使うのは得策ではありません。
Likeはテキストに対しての演算子ですので。
（自動でテキスト型に変換されますが、環境によっては想定通りになるとは限らないし、処理が重くなります。）

下記のように日付/時刻型での抽出条件にしましょう。

  SQL = SQL & "        and (日時 >= #2020/04/28# AND 日時 < #2020/04/29#)" & vbCrLf

---

ちなみに、
ADOの場合のワイルド文字は%です。
DAOは*です。

Comments

[nyk.]

おっしゃるとおり「日付/時刻型」のフィールドだったので、ご教示通りに修正したら解決しました。
ありがとうございました！