Esta respuesta no es precisamente de VB, pero en vista de que estas usando MySQL como Base de datos, puedes meterle esta sentencia
Código:
WHERE DATE_SUB(CURDATE(),INTERVAL 30 DAY)
Con lo que la consulta se quedaría así:
En principio va a coger la fecha actual y te va a mostrar todos los registros en un intervalo de 30 días.
En el caso de querer especificarle tu una fecha en concreto tendrías que cambiar
CURDATE() por la fecha en formato
'AAAA-MM-DD' con las comillas, por ejemplo
'2012-12-01' y después jugar con la comparación
'<=' para ajustarle si quieres un mes antes o un mes después.
Espero que te sirva.