Por eso es importante ir viendo como se construye tu consulta sql y de ser posible ejecutarla en tu gestor de base de datos. Te hubieras dado cuenta del error que muy bien corrige Jerónimo si es que usabas la ventana Inmediato.
¿Como se hace? te suelto el cursillo tip aqui. Tu tienes este código (solo lo aplicare a la variable) y antes de entrar al procedimiento CARGAR_DATOS_SEGUN_NOMBRE has un punto de interrupción alli:

Si presionas Ctrl G te saldrá la ventana inmediato, alli escribes ?StrSQL y presionas ENTER.
EL signo de interrogación servirá para que podamos obtener lo que contiene la variable StrSQL
y de esa forma podemos saber como se esta construyendo nuestra cadena:

Para que te quede mas chulo puedes darle Ctrl + Enter cada cierto tramo de la cadena para que te quede asi:

Vemos entonces que hasta allí esta bien, no ejecuto la tercera linea de tu string porque le estamos diciendo al ide que concatene la propiedad ACEPTADO del objeto Presupuesto cosa que NO EXISTE porque no es algo declarado ni creado en VB6, eso es parte del SQL y notamos que no se está tratando como tal, haciendo la corrección debida (como indica Jerónimo) y usando la ventana Inmediato y tabulando nos queda asi:

Vemos entonces que el contenido del string es correcto, lo que no estamos seguros es si nos entregara los registros esperados, o sea error de sintaxis no hay (como si lo hubo) y para estar seguros y de paso verificar los registros esperados copiamos ese contenido...

... a nuestro gestor de base de datos y listo.
Espero que este tip te sirva y si la sabias solo te faltaba analizar un poquito como estabas concatenando.
Saludos