Veo varios posibles fallos, pero no puedo saberlo. Te cuento:
En primer lugar, la primera línea debe poner:
Dim strSQL as String
Supongo que lo has mandado cortado pero que en realidad lo tienes así.
Luego, es posible que te de fallo en el "no", aunque no estoy seguro. Creo que debes utilizar "not" (en inglés).
Por último (y creo que lo más probable) es que te falle la declaración del "WHERE". Me explico:
si pones FECHA=xxx, Si FECHA es un dato del tipo fecha debes ponerlo entre corchetes (FECHA=#xxx#). Si es una cadena de texto debes ponerlo entre comillas simples (FECHA='xxx'). En caso contrario lo toma como un número. Asegúrate de que eso es correcto.
Espero que te sirva de algo. Si sigues sin poder, detállame los tipos de campos e intentaré ayudarte.
Un saludo.