Поправить код немножко

[Userkeys]

Привет всем. Поправьте, пожалуйста, авторизацию. У меня две таблицы, кот. содержат сотрудников и продавцов, но авторизоваться может только одна категория. В моем случае только сотрудники могут зайти, а для продавцвов не верный пароль пишет. Вот код. Помогите сделать так, чтобы могли заходить обе категории.

with TADODataSet.Create(nil) do
    try
      Connection := ADOConnection1;
      CommandText := 'Select [Логин], [Пароль] from Сотрудники where [Логин]=:pLogin AND [Пароль]=:pPassword';
      Parameters.ParamByName('pLogin').Value := login1.Text;
      Parameters.ParamByName('pPassword').Value := Password.Text;

      CommandText := 'Select [Логин], [Пароль] from Продавцы where [Логин]=:pLoginREK AND [Пароль]=:pPasswordREK';
      Parameters.ParamByName('pLoginREK').Value := login1.Text;
      Parameters.ParamByName('pPasswordREK').Value := Password.Text;
      try
        Open;
        bLogged := (RecordCount>0);
        Close;
      except
      end;
    finally
      Free;
    end;
   if not bLogged then
          MessageBox(0, 'Неверный логин или пароль', 'Уведомление', MB_ICONERROR)
      else
         MessageBox(0, 'Авторизация прошла успешно', 'Уведомление', MB_ICONASTERISK);

[Userkeys]

актуально...

[phomm]

    try
      Connection := ADOConnection1;
      CommandText := 'Select [Логин], [Пароль] from Сотрудники where [Логин]=:pLogin AND [Пароль]=:pPassword UNION Select [Логин], [Пароль] from Продавцы where [Логин]=:pLogin AND [Пароль]=:pPassword';
      Parameters.ParamByName('pLogin').Value := login1.Text;
      Parameters.ParamByName('pPassword').Value := Password.Text;
      try
        Open;

Умалчивая про неправильную архитектуру, можно предложить такой костыль.