在Access数据库上使用VBscript和SQL时，如何根据日期与当天日期的比较来选择记录

SELECT * FROM TableName WHERE DateField = Date()

Dim conn, rs
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

' 连接到Access数据库
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb"

' 执行SQL查询
rs.Open "SELECT * FROM TableName WHERE DateField = Date()", conn

' 遍历记录集并处理结果
If Not rs.EOF Then
    rs.MoveFirst
    Do Until rs.EOF
        ' 处理每条记录
        ' 例如，输出记录的某个字段值
        WScript.Echo rs.Fields("FieldName").Value
        
        rs.MoveNext
    Loop
End If

' 关闭记录集和数据库连接
rs.Close
conn.Close