Query su data: tipo non corrispondente

[[trodat]]

Cosa c'è di errato in questa query:

SQLDown = "select * From tbl WHERE 1=1 "

If data <> 0 then
SQLDown = SQLDown & " AND data = #"& data &"# "
End if

If data = 0 then
SQLDown = SQLDown & " and data "
End if

va in errore quando seleziono una data:

Tipo non corrispondente.: '[string: "01/01/2005"]'

mentre funziona quando dal form mi arriva valore TUTTE, ecco il form:

 <select size="1" name="data" style="font-size: 8 pt; font-family: Verdana" onChange="submit(this);">
                <option selected value="0">------TUTTE------</option>
<%
sql = "SELECT DATA FROM TBL GROUP BY DATA"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF%>

<option value=<%=rs("DATA")%>><%=rs("DATA")%></option>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>
</select>