SQL="SELECT campo1, campo2 FROM tabla where FECHA=#"'&criterio&'"#"
IF RS.EOF=FALSE then
escribe si en caso afirmativo
else
SQL="SELECT campo1, campo2 FROM tabla where FECHA=#"'& DateAdd("d",criterio,-1)&'"#"
end if
se me afigura que tambien pudiera funcionar de esta manera... total hechando a perder se aprende
suerte
