loop_role = “y„
provider_id = forme! frm_list_external_companies.cmb_placing
strSQL = “[fk_role_provider] =„ & provider_id
rs_roles.FindFirst
Fare mentre loop_role = “y„ e non rs_roles.EOF
Se rs_roles.NoMatch allora
loop_role = “n„
Altrimenti
…
Concluder se
strSQL di rs_roles.FindNext
Concluder mentre