遍历ADODATASET中的数据

begin  
      ADODataSet.First;  
      Whlie   not   ADODataSet.Eof   do  
      begin  
          //   执行代码  
          ADODataSet.Next;  
      end;  
  end;