Sincronizar subformularios dentro de un formulario principal

Buenas tardes,

tengo dos subformularios, sub1 y sub2 dentro de un subformulario principal que tienen un campo común Tr, que no está en el formulario principal.

Quiero que al seleccionar un registro en Sub1 aparezcan en Sub2 los registros con Tr igual al Tr del registro seleccionado en Sub1.

He intentado esto en el evento 'Al activar' de Sub1, pero no me funciona:

Dim nombre, crit As String

Dim f As Form

Dim rs As Recordset

nombre = "Sub2"

Set f = Forms(nombre)

Set rs = f.RecordsetClone

crit = BuildCriteria("NTr", dbInteger, Me!Tr)

rs.FindFirst crit

If rs.NoMatch Then '

Msgbox("No hay registros")

Else

f.Bookmark = rs.Bookmark

End If

Os agradezco vuestra ayuda