dataset的循环取值有关问题以及insert的语法

dataset的循环取值问题以及insert的语法
我是delphi新手，现在想把dataset里的记录一条一条读取放到我输入stringgrid表格里面，还请各位高手贴一下示例代码。
（我的stringgrid没有绑定datasource，仅仅作为一个输入数据的表格）。
还有一个问题是
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into A(ID,CODE) VALUES (:param1,:param2)');
ADOQuery1.Parameters.ParamByName('param1').Value := ID.Text;
ADOQuery1.Parameters.ParamByName('param2').Value := CODE.Text;
ADOQuery1.ExecSQL;
总提示我的insert语法错误（ID，CODE都是文本型字段，是access数据库）

------解决方案--------------------
1、
var
i,j:integer;
i:=1;
with datase do
begin
first;
while not eof do
begin
for j=0 to fieldcount-1 do
stringGrid.Cells[i,j+1]:=fields.fields[j].text;
inc(i);
next;
end;
end;
2、注意空格insert into A
a后面应该有空格