loop_role = "y"
provider_id = Forms!frm_list_external_companies.cmb_placing
strSQL = "[fk_role_provider] = " & provider_id
rs_roles.FindFirst
Do While loop_role = "y" And not rs_roles.EOF
If rs_roles.NoMatch Then
loop_role = "n"
Else
...
End If
rs_roles.FindNext strSQL
End While