Visual Basic - Error de compilación: no se ha definido Sub o Function

Buenas tardes, estoy diseñando un formulario de búsqueda de clientes en access. Estoy intentado que a través de dos cuadros combinados se filtre un subformulario pero por más vueltas que le doy no consigo solucionar este error.
¿Podeis indicarme donde está el error? Me sombrea el último End Sub.
Muchas gracias de antemano

No es posible saber de que se esta quejando el Visual Basic con esta imagen.

Saludos.
\\//_