Adoquery PageSize 不能分页，请高手解答(200)

代码如下：moddb为一个模块。ado1为TAdoconnection,query1为tadoquery strTmp='select * from meterial order by [id] desc'; with moddb.DataModule1 do begin Query1.Connection:=ado1; Query1.SQL.Clear; Query1.SQL.Add(tmpstr); Query1.Open; query1.Recordset.PageSize:=30; query1.Recordset.AbsolutePage:=3; for i:=1 to 30 do begin ShowMessage(query1.fieldbyname('title').asstring); Query1.Next; if(Query1.Eof) then Break; end; end;可每次都只显示第一页的数据,请高手指点，必送高分。

数据集已经定位了，你的取数据的方式不对uses ADOInt;procedure TForm1.Button1Click(Sender: TObject);var rs:ADOInt.Recordset;begin ADOQuery1.Recordset.PageSize := 10; ADOQuery1.Recordset.AbsolutePage := 2; rs := ADOQuery1.Recordset; showMessage(rs.Fields.Item[0].Value);end;