[Code]
const
  adStateClosed = 0;
var
  ADOConnection: Variant;

procedure InitializeWizard;
begin
  ADOConnection := CreateOleObject('ADODB.Connection');
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  State: Variant;
begin
  Result := True;

  State := ADOConnection.State;
  if State = adStateClosed then
    Msgbox('adStateClosed', mbInformation, MB_OK);
end;