codice:
<%
'apertura connesione
set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/Archivio.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

' Stringa di interrogazione sulla tabella

sql = "SELECT * FROM Archivio WHERE Data=Date()"


Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
%>
<div align="center">
<table border="0" width="250" cellspacing="1">

<tr>
    <td width="5%" height="20" align="left">
	<%=rs(3)%></td>
    
      <%
  rs.movenext
  loop
  
  rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
   %>
   </table>
ma non si vede nulla.

il formato della data nel db è 01/10/2009 8.35.15
sia che sia "testo" o "data e ora" non da risultati.
nel db c'è la data di oggi.