[Code]
const
  adStateClosed = 0;
  adStateOpen = 1;
  adStateConnecting = 2;
  adStateExecuting = 4;
  adStateFetching = 8;

procedure InitializeWizard;
var
  State: Variant;
  ADOConnection: Variant;
begin
  ADOConnection := CreateOleObject('ADODB.Connection');
  State := ADOConnection.State;
  if State = adStateClosed then
    Msgbox('adStateClosed', mbInformation, MB_OK);
end;