如何利用recordset生成临时表？？？为什么会错？？

如何利用recordset生成临时表？？？为什么会错？？我想利用recordset临时生成某些字段,再与dbgrid相连以下代码,属于实验,但没有效果,不知道为什么??procedure TForm2.Button1Click(Sender: TObject);varrs:Variant;begin rs:=CreateOleObject('ADODB.RECORDSET'); rs.fields.append('fld',$00000081,5,$00000004); rs.cursortype:=$00000001; rs.locktype:=$00000003; rs.open; while not rs.eof do begin rs.fields('fld'):='abcde'; rs.update; rs.movefirst; edit1.text:=rs.fields['fld']; rs.movenext; //rs.close; end; rs.close;end;end.现在希望生成fld字段，并在edit１中显示出来．但begin rs.fields('fld'):='abcde'; rs.update; rs.movefirst; edit1.text:=rs.fields['fld']; rs.movenext;根本不执行，不加入ＥＯＦ又会报错！望高手帮忙!!用计算字段你可以直接应用tclientdataset;如果是SQL SERVER为什么不用 select id=identity(int,1,1) into #tmp from tablename