Get subform records

Get subform records

Hello

I ahve an application with Shops and Contacts.
A Contacts can work for many shops.

Used forms :
- Shops
- Contacts with a subform  ShopWork with is a lookup  field, drop-down list of Shops called Shop

I want to display all Contacts  for a given Shop. Input.ID is the Shop ID.

lst="" ;
rs  =  Contacts  [ ShopWork.Shop == input.ID] ;

    for each Contacts in rs 
    {
lst=lst + rs.ID + " " + rs.ContactName + "<p>" ;
    }
input.ListeContact = lst ;

I get some names but, they have all  the same values...

Am I missing something ?

Regards