Visual Basic - 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.

sacale las comillas man algo asi
SQLBU = "SELECT * FROM nrofactura WHERE month(fecha)=07" obio aca pone txtfecha.text

Lo puedes hacer de la siguiente forma:

"SELECT * FROM contrato WHERE Format(fecha_inicio, 'MM') = ' # & fechaIni.Text & ' # "

Espero que esto te sirva de ayuda