Despues de horas... pensando en el típico problema de "CDate" o algo así...
cambio esto
fecha_control=DateAdd("d",-90,Date) por fecha_control=DateAdd("m",-3,Date) y zasssss... funciona
Algún día nos volveremos locos con estas chorradas de errores que no vemos
a la primera y nos ofuscamos en otros.