Eliminar registro automaticamente por fecha

[Blashak]

Buenasss
Estoy intentando borrar los registros que ya lleven mas de 30 dias y me aparece el siguiente error.

Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/web/fecha3.asp, line 23

mi codigo:
<%
dim sqm
fecha_tope=dateadd("d",-30,date())

set oConn = Server.Createobject("Adodb.Connection")


oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("registrate.mdb")&";"
set resultado = oConn.execute("select * from anuncio")
do while not resultado.eof
ams=resultado("Fecha")

if ams < fecha_tope then

id=resultado("ID")
sqm = ("delete from anuncio where id='"&ID&"'")

oConn.execute(sqm)
response.write(ams)
'response.write(id)

else
response.write("sd")
'response.write(id)
end if

resultado.movenext
loop


%>

Espero sus respuesta.. muchas gracias