Visual Basic para Aplicaciones - BUSQUEDA POR MES

HOLA AMIGOS, DE NUEVO NECESITO DE SUS CONOCIMIENTOS.

ESTE ES MI PROBLEMA:

TENGO QUE REALIZAR UNA BUSQUEDA POR MES DENTRO DEL CAMPO FECHA_INICIO EN MI BD ACCESS.

EL FORMATO DE LA FECHA EN LA BD ACCESS ES: mm/dd/yyyy.

ESTA ES LA FORMA EN QUE LO HAGO, MEDIANTE UN TEXT DONDE ESCRIBO EL NÚMERO DE MES (pejem: 7) Y UN BOTON BUSCAR:

Dim Consulta2 As String
Consulta2 = "SELECT * FROM contrato WHERE MONTH(fecha_inicio)='#" & fechaIni.Text & "#'"
Data1.RecordSource = Consulta2
Data1.Refresh

AL EJECUTARLA ME ENVIA EL SIGUIENTE ERROR:

Run-time error '3061' :
Too few parameters. Expected 1.

CUANDO VOY A DEBUG ME MARCA EL ERROR EN:
Data1.Refresh

-------------------------------------------------

ESPERO HABERME EXPLICADO, TAL VEZ PARA USTEDES ESTO ES MUY SENCILLO, PERO PARA ALGUIEN QUE EMPIEZA COMO YO, SE COMPLICAN UN POCO LAS COSAS.

OJALA ME PUEDAN AYUDAR.

GRACIAS, Y ESPERO RESPUESTAS.

HOLA

YO LO HARIA CARGANDO RECORDSET CON LA CONSULTA

DIM RS AS RECORDSET
DIM SQL AS STRING

SQL =""
SQL = SQL & "SELECT RECIBOCAJA.FOLIO, RECIBOCAJA.GASOLINERA "
SQL = SQL & "FROM RECIBOCAJA
SQL = SQL & "WHERE (((Month([recibocaja].[fecha]))="& VAL(TxtMes) &"))
SQL = SQL & "GROUP BY RECIBOCAJA.FOLIO, RECIBOCAJA.GASOLINERA;
SET RS= CNN.EXECUTE(SQL) 'SE EJECUTA LA CONSULTA
IF RS.EOF=TRUE THEN
RS.CLOSE
MSGBOX ("NO HAY INFORMACION",vbCritical)
EXIT SUB
ENDIF

GRID1.CLEAR 'SE LIMPIA EL GRID
DO WHILE RS.EOF=FALSE ' SE CARGA EL GRID DE 2 COLUMNAS
DOEVENTS
GRID1.ADDITEM REC("FOLIO") & VBTAB & REC("GASOLINERA")
RS.MOVENEXT
LOOP
RS.CLOSE

EN ESTE EJEMPLO LO QUE HAGO ES HACER LA CONSULTA DE CARGA EN UN RECORDSET , LUEGO LO BARRO CARGANDO UN MSFLEXGRID.

SI TIENES ALGUNA DUDA , CON GUSTO TE AYUDO
ESPERO Y TE SIRVA EL EJEMPLO SALU2