Actualizar un objeto CONSULTA en SUBFORMULARIO

Buen día a Todos, tengo la siguiente duda, creé una consulta con un
objeto CONSULTA y la siguiente sentencia:

   SELECT <campos> FROM <tabla > WHERE <condicion_inicial>

luego lo pegue en un SUBFORMULARIO dentro de mi FORM principal, hasta
aqui todo correcto.

Para actualizar la sentencia SQL de mi objeto CONSULTA utilizo la
siguiente instruccion dentro de la propiedad ON_CLICK de un botón:

    Dim strSQL As String

    strSQL = SELECT <campos>
    strSQL = strSQL + FROM <tabla>
    strSQL = strSQL + WHERE <condicion_modificada>   'ESTO ES LO QUE
MODIFICO

    For Each Consulta In CurrentDb.QueryDefs
        If Consulta.Name = "Consulta TODOS 0" Then
            Consulta.SQL = strSQL
            Exit For
        End If
    Next Consulta

    Consulta.Close
    Set Consulta = Nothing

EL PROBLEMA ES QUE si modifica la consulta SQL pero solo me refresca
el contenido en el FORM hasta que lo cierro y lo vuelvo a abrir. Ya
intenté con los metodos REFRESH, REQUERY y RECALC tanto para el FORM
como para el SUBFORM y no me funciona.

¿Tiene solicuón mi problema?, ¿cuál sería?, gracias de antemano por su
atención!!!