ACCESSがないので、ビジュアルデータマネージャでテーブル「ディリー」を定義しました。
「年月日」のフィールドのデータ型は　DATE/TIME　です。
SQLでは　YMD_D(DATE型）(04/06/01)で一致しますが、
Rs.Fields("年月日")では　19：00：00と時刻を表します。
フィールドのデータ型時になにか加える設定があるのでしょうか？

お手数かけますが宜しくお願いします。

Dim Cn      As New ADODB.Connection
Dim Rs      As New ADODB.Recordset
Dim SQL     As String
Dim YMD_D   As Date
dim YMD     As Date
Cn.ConnectionString = DBCTS
Cn.Open
      
       SQL = "SELECT *  FROM ディリー " _
           & "WHERE 年月日=" & YMD_D & ""
    
       Rs.Open SQL, Cn, adOpenStatic, adLockOptimistic
       Rs.MoveFirst
       Do Until Rs.EOF
          X = (Rs.Fields("年月日"))
          I = Val(Rs.Fields("行番号"))
          
          Rs.MoveNext
       Loop
       Rs.Close
    Cn.Close

コード中のXとIが変数宣言されていないようなので、Variant型になっているのでは？
このXをどうやって表示すると時刻が表示されるのでしょうか？
とりあえずフォーマットでどうなりますか？

Dim X As String
X = Format(Rs.Fields("年月日"),"yyyy/mm/dd hh:nn:ss")
MsgBox X

レス有難うございます。
説明不足をして失礼しました。
下記の通りです。
> コード中のXとIが変数宣言されていないようなので、Variant型になっているのでは？
Dim X as Date
Dim I as Integer

> このXをどうやって表示すると時刻が表示されるのでしょうか？
> とりあえずフォーマットでどうなりますか？

SELECT　WHERE文は　04/05/01　で一致しました
> X = Format(Rs.Fields("年月日"),"yyyy/mm/dd hh:nn:ss")
　Xの内容は、99/12/30　19：12：00
　一致したレコードのフィールド"年月日"（Date／Timeで定義）の内容は、19：12：00　となっております。

宜しくお願いします