не могу подключится где ошибка?

[rAMEO]

procedure TForm_Authorization.Button_entranceClick(Sender: TObject);
var // Прреманные
 BD, Login, Pass, CS, Provider, PSI, DBP, S: String; // логин база и пароль
begin // начало тела программы
{------------------------------------------------------------------------------}
 BD := ComboBox_DataBase.Text; // Текст комбобокса равен переменной
 Login := Edit_Login.Text;     // Текст эдита равен пользователю
 Pass := Edit_Password.Text;   // Текст эдита равен паролю
 CS := DataModule_DataBaseActive.ADOConnectionDataBase.ConnectionString;//Ст-ка БД
 Provider := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
 PSI := ';Persist Security Info=False';
 DataModule_DataBaseActive.ADOConnectionDataBase.LoginPrompt:= False;
 DataModule_DataBaseActive.ADOConnectionDataBase.Provider:= 'Microsoft.Jet.OLEDB.4.0';
{------------------------------------------------------------------------------}
 CS:= Provider + BD + PSI;
{------------------------------------------------------------------------------}
if CS <> '' then
 begin
  DataModule_DataBaseActive.ADOConnectionDataBase.Connected:=true;//Активировать БД
    if (Length(Login) = 0) // не задана логин
     or (Length(Pass) = 0) then // не задана пароль
      begin  // Надо выполнить эти задачи
       beep;// Сигнал ошибки
       MessageDlg('Надо задать логин и пароль', mtWarning, [mbOK], 0); // сообшение
       exit; // выход
      end;
 With DataModule_DataBaseActive.ADOQuery_User do begin // без обашение на примую
  Close; //  Закрываем куери
  SQL.Clear; // очишаем скл
  s:= 'SELECT * FROM tbl_Users WHERE Login_User='+QuotedStr(Login)+'AND Password_User='+QuotedStr(Pass);
  SQL.Add(s); // задаем скл заране вписаный в переменный S
  Open;  //   открываем куери
   if  not DataModule_DataBaseActive.ADOQuery_User.IsEmpty then  //  условия если выполнено то
    begin
     R:=TRegIniFile.Create('MySelfRegistry system legal office'); // создаем реестре место
     R.WriteString('FormLogin','EditSotrudnikText', DBEdit_User.Text); // запоминаем пользователя
     R.WriteString('FormLogin','EditRolText', DBEdit_Role.Text);    //  запоминаем роль пользователя
     R.WriteString('FormLogin','EditDataBaseText', BD);
     R.Free; // освобождаем реестр
     ModalResult:= mrOk; //  успешный результат
     Log('Была автаризована успешно...'); // Запись в лог файл
    end else begin// иначе
     ModalResult:= mrAbort; //  выдаем сообщение о ошибке
     MessageDlg('Такой пользователь отсутствует в системе либо введен неверный пароль.'+#13#10+'Попробуйте еще раз', mtError, [mbOK], 0);
     Log('автаризация не было успешным...');
    end; end; end; end;

[taras-proger]

А теговать кто будет?

[rAMEO]

А это как? можно пример

[Stilet]

А это как?

Имелось ввиду оформить код читабельно.

не могу подключитс

Попытки трассировки программы были?