Visual Basic - Establecer una condición con años

Llevo ya varias horas sin darle en el quid. A ver si sois tan amables de sacarme del atolladero.
Tengo una tabla con un campo fechavto (fecha vencimiento) y deseo sumar la columna importe para todos los registros que tienen en su fecha de vencimiento un año determinado, p.e. el 2018.
El campo fechavto lo tengo definido como fecha 00/00/0000.
anovcto = "2018"
He puesto en el código
Rs.Open "SELECT SUM (importe) AS importex FROM prestamos WHERE..... YEAR(fechavto) = "anovencto", ", Cn, ......
Todas las otras condiciones las reconoce, pero en cuanto a la fecha me dice que no coinciden los tipos. He hecho todas las variaciones, combinaciones y permutaciones que se me han ocurrido con las comas, sin resultado positivo.
En vista de que con el año no tenía éxito he ido a la fecha completa poniendo
fechafinal = "31/12/2018"
Rs.Open "SELECT SUM (importe) AS importex FROM prestamos WHERE..... fechavto <= fechafinal "...
Nuevamente toda clase de comas, comillas y cometas y he utilizado también
fechavto = CDATE(fechafinal). Siempre obtengo con la fecha el mismo mensaje: no coinciden los tipos.

No sé dónde estará mi error. Gracias por vuestra ayuda.

Primero dinos que motor de base de datos usas

Puedes confirmarnos en que formato (de la base ) esta el campo


podrias utilizar where fechavcto >= '2018-01-01' and echavcto <= '2018-12-31'

Siempre ejecuta PRIMERO la sentencia en el motor y luego la pasas al codigo.

Gracias por tu amable respuesta. Había intentado esa condición pero algo hice mal porque no conseguí que me funcionara.
Finalmente lo que he hecho y me funciona es

El procedimiento que indicas es muy intuitivo y debería haberme funcionado pero como dije he hecho algo mal y no me funcionó. Mil gracias.
Lo del 21 que he puesto es porque estaba haciendo esto para ponerlo en un gráfico con MsChart que me está quedando muy chulo.

La funcion YEAR espera un valor numerico, por lo tanto arma tu Select sin comillas en el año

"SELECT SUM(importe) AS suma21
FROM prestamos
WHERE platform = 'Lendix' AND YEAR(fechafin) = 2018" , Cn, adOpenStatic, adLockOptimistic

Seguramente sea ésta la única opción que no haya probado porque le he dado muchas vueltas hasta que el fin me funciona. La verdad es que no había encontrado ni en la red ni en el tocho de Fco J. Ceballos aclaración al problema. Había probado la solución que ha propuesto Andrés Leonardo pero por lo visto hice yo algo mal y no me funcionó. Gracias por tu consejo.