Delphi+Cell高手请进！

[msha]

用Adodataset连接数据库，把数据库内容放在Cell里，告诉我，来北京请吃饭！
请把代码写出来，谢谢！

[Cell]

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
var col1,row1:integer;
begin
col1:=1;
row1:=1;
//在第一行 写字段名
for i:=0 to adodataset1.FieldCount-1 do
begin
cell1.SetCellString(col1+i,row1,0,adoDataSet1.Fields[i].FieldName) ;
end;
//写数据
for j:=0 to adodataset1.RecordCount-1 do
begin
for i:=0 to adodataset1.FieldCount-1 do
begin
cell1.SetCellString(col1+i,row1+j+1,0,adodataset1.Fields[i].Value) ;
end;
adodataset1.Next ;
end;

[lihuihit]

使用ADO取数的方法真的需要学习一下