Devo visualizzare i dati di un db che abbiano la data di oggi.
codice:
' Stringa di interrogazione sulla tabella
Dim Giorno
Giorno = RIGHT("00" & Day(Date()), 2)
sql = "SELECT * FROM Archivio WHERE Data='Giorno'"


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>

mi risponde questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/giorno.asp, line 24

la linea 24 è = rs.Open sql, conn ,3,3

come correggere l'errore?