tipos sin coincidencia

[dagui]

Prueba con esto, que te hace lo mismo.

<select name="select">
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\BaseDeDatos\web.mdb"))
strSQL = "SELECT distinct kd_fecha FROM TADIARIO_CAJA"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
%>
<option value="<%=objRS("kd_fecha")%> "><%=("kd_fecha")%>
<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</select>

Sólo como prueba. Me avisas.