Me.Filter = "[Legal form]=" & "'" & Me![CasellaCombinata66] & "' and [Activity] = '" & Me![NomeDelControllo] & "'"