Crea un sql con el mismo filtro que tienes en el subformulario el mismo filtro que el que tienes subformulario.
No se exactamente en tu caso como podrías recoger el filtro del subformulario, pero podría ser algo así.
......
sql = "SELECT * FROM Tabla"
if not SubForm.Filter="" then
sql = sql & " WHERE " & SubForm.Filter
end if
......