users (id int primary key, name char ( 50 )) 
  
  subscribed_users (firm_id int primary key)

with currentDb.openRecordset( "select * from users" )
  while not .eof do
    user_id = ![id]
    user_name = ![name]

    if( currentDb.openRecordset ( "select * from subscribed_users where id="  + user_id +  ";" ).RecordCount >  0 ) 
      user_subscribed =  1  else user_subscribed= 0 
    end if
  loop
end with

' Может быть неверный синтаксис, но это неважно - сейчас работаю не в Access, волнует только сам запрос