Data provider or other service returned an E_FAIL status

Hejsa.

Jeg har en lille procedure hvor jeg får en som overskriften lyder. Ved ikke om det er en SQL eller en Delphi fejl.

Den opstår i min SQL SELECT hvor den 1. for-to-do er 4 og 2. for-to-do er 0.

Er der nogen der har en ide?

procedure TForm1.FormShow(Sender: TObject);
var i,x : byte; sOUlocation : string;
begin
  assert(assigned(ADOQuery1));
  assert(assigned(ADOQuery1.SQL));
  ComboBox1.Clear;
  for I := 0 to 7 do
  begin
    case I of
      0 :  sSiteOU := 'ou=so,ou=dk';
      1 :  sSiteOU := 'ou=is,ou=dk';
      2 :  sSiteOU := 'ou=ro,ou=dk';
      3 :  sSiteOU := 'ou=ko,ou=dk';
      4 :  sSiteOU := 'ou=lu,ou=se';
      5 :  sSiteOU := 'ou=ro,ou=se';
      6 :  sSiteOU := 'ou=tu,ou=se';
      7 :  sSiteOU := 'ou=no,ou=se';
    end;
    for x := 0 to 1 do
    begin
      case x of
        0 : sOUlocation := 'ou=Consultants';
        1 : sOUlocation := 'ou=Users';
      end;
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text := 'SELECT NAME FROM '+ Quotedstr('LDAP://' + sOUlocation + ','+ sSiteOU + ',OU=company,DC=AD,DC=COMPANY,DC=ORG');
      ADOQuery1.Open;
      try
        while not ADOQuery1.Eof do
        begin
          ComboBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString);
          ADOQuery1.Next;
        end;
      finally
        ADOQuery1.Close;
      end;
      combobox1.SetFocus;
    end;
  end;
end;