Hola de nuevo
Si preguntaste eso en el foro de Visual Basic es porque estas usando ADO o DAO para acceder a una base de datos(Algunos preguntan en el foro que no es)
Asi que la consulta que te mostre la debes colocar en
1. Si estas usando el control Data
Colocalo en la propieda RecordSource
2. Si estas usando el control ADO Data Control
Colocalo en la propieda RecordSource
3. Si lo estas acciendo por codigo en ADO deberias tener un objeto Command en este colocalo asi
TuComando.CommandText="SELECT Fecha FROM TuTabla WHERE MONTH(Fecha)=MONTH(DATE());"
Consulta que te mostre antes
SELECT Fecha FROM TuTabla WHERE MONTH(Fecha)=MONTH(DATE());
Espero esta vez haya sido un poco mas claro, si algo no dudes en preguntar
Saludos
www.theemulator.tk