fast... realy fast

Hello :c)

What are the best ado component..... Im looking for a realy fast component
:c) (arent we all)

For now im using the ones that come from delphi (TADOConnection, TADOQuery)
for building a isapi but it is slow... (and yes i have setCursorLocation to
clUseServer and Cursortype to ctKeyset)... and im simply dowing simple query
ex:

    with ADOQuery1 do
    begin
      Close;
      with SQL do
      begin
        Clear;
        Add('SELECT User.*');
        Add('FROM [User]');
        Add('Order by Prenom;');
      end; {with}
      Open;

      //Response.Content := Response.Content + intToStr(RecordCount) + br;

      First;
      while not EoF do
      begin
        Response.Content := Response.Content +
        Format('%s. <a href="%s/getuserfull?user=%s">%s %s</a>',
[IntToStr(RecNo), Request.ScriptName, FieldByName('UserID').AsString,
FieldByName('Prenom').AsString, FieldByName('Nom').AsString]) + br;
        Next;
      end; {while}

      Close;
    end; {with}

Im using a access 2000 db and this table only has 25 entries... The select
is not to bad but the insert it about 4 times longer then a insert in
ColdFusion (this is all on the same server using the same db) this is the
code im using:

with ADOQuery1 do
begin
  Close;
  with Request.ContentFields do
  begin
    SQL.Clear;
    SQL.Add('INSERT INTO [User] (Nom, Prenom, UserRight, [User], Pass)');
    SQL.Add(Format('VALUES("%s","%s","%s","%s","%s")',
[Values['fNom'],Values['fPrenom'],Values['fUserRight'],Values['fUser'],Value
s['fPass']]));
    //Add('Values("%s", "%s", "%s", "%s", "%s")');
  end; {with}
  ExecSQL;
end;

Any one know what it could be??? is it me?? is it the component?? pls help
me :c)

Thanks
Christian