Visual Basic - Consulta SQL de fechas

Hola... Como puedo hacer una consulta que me elimine todos los registros de una tabla, menos los registros que la fecha conincidan con el mes en curso.. Muchas gracia de antemano a todos....

delete from "tabla" where month("fecha") <> @mes

"tabla" = nombre de tu tabla
"fecha" = nombre del campo fecha
@mes = variable del mes en curso
espero te ayude. :)

Muchisisimas gracias Christian tal gentil... ;-() mua

de nada Emilia aqui todos estamos para ayudarnos, :)