Problema con InputBox y Data report

[Myno]

Hola, estoy teniendo un problemita. Este es el codigo que utilizo para pasar los parametros al reporte:

Cabe aclarar que utilizo tres inputBox para ingrasar los parametros. Los guardo en las vbles año, mes y dia.

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

Listado.CommandText = " SHAPE {SELECT [Ingresos-dePrueba].Ing_Cod, Tipo_Ingreso.TIng_Descr, [Ingresos-dePrueba].Ing_Importe, [Ingresos-dePrueba].Ing_Fech_Ano, [Ingresos-dePrueba].Ing_Fech_Mes, [Ingresos-dePrueba].Ing_Fech_Dia, Forma_Pago.FormPago_Desc FROM [Ingresos-dePrueba] INNER JOIN Tipo_Ingreso ON [Ingresos-dePrueba].Ing_Tipo = Tipo_Ingreso.TIng_Cod INNER JOIN Forma_Pago ON [Ingresos-dePrueba].Ing_For_Pag_Cod = Forma_Pago.FormPago_Cod WHERE [Ingresos-dePrueba].Ing_Fech_Ano = " & año & " And [Ingresos-dePrueba].Ing_Fech_Mes = " & mes & " And [Ingresos-dePrueba].Ing_Fech_Dia = " & dia & "} AS InformeIngresos COMPUTE InformeIngresos BY 'Ing_Cod' "

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

No hay ni un problema cuando ingreso los valores, acepto y me genera el reporte. El tema es que cuando cancelo el inputbox, me tira este error: "Sintaxis incorrecta cerca de la palabra clave 'And' "
Si alguien me puede ayudar x favor ... desde ya muchas gracias

[JAMER]

Hola Myno, estas validando el inputbox al pulsar cancelar? (con un if puede ser), recuerda que cuando das clic en cancelar no guarda nada, entonces las variables año, mes y dia quedan vacias, puede ser que por eso te marque error en la consulta.