Visual Basic - FILTRAR FECHA DE MES ACTUAL

Hola a todos, ete es mi problem, a ver si a alguiens e le ocurre algo...

Tengo un AdodcCaja, el caul tiene movimeintos de caja con su respectiva fecha, lo que quiero hacer es filtrar todos los movimientos del mes actual...
Esto es lo que tenía, pero no funciona...

------------------------------------------------------------------------------------------------------------------------------------
Dim mesesito As Integer

mesesito = Month(Now) 'con esto asigno el nro de mes actual a mesesito.

AdodcCaja.RecordSource = "select * from caja where fecha=" & DatePart("m", mesesito)

AdodcCaja.Refresh
------------------------------------------------------------------------------------------------------------------------------------

Pero no funciona, si alguien sabe como, ayudaneme !!! help !

gracias y nos vemos.

Javier

Dim mesesito As Integer

mesesito = format(date,"mm") 'con esto asigno el nro de mes actual a mesesito.

AdodcCaja.RecordSource = "select * from caja where month(fecha)='" & mesesito & "'"

AdodcCaja.Refresh

suerte, si no te funciona prueba de eliminar las comillas simples

ESPECTACULAR.. MUCHAS GRACIAS !!!!!!!! FUNCIONO DE MARAVILLA