如何把，多条SQL语句，连接起来，并分条执行。(50分)

语句1
sql:='update wwl_user1 set DSP= '+''''+trim(DBComboBox1.Text)+''''+'where bm'+'='+''''+dv+''''+'and dj'+'='+''''+bb1+''''；
语句2
sql:='update wwl_user1 set ADP '+'='+''''+trim(DBComboBox2.Text)+''''+'where bm'+'='+''''+dv+''''+'and dj'+'='+''''+bb1+'''';
fm_data.CD_user1.DataRequest(sql);
如何把语句1和语句2连接起来，并分别执行；也就是说，执行完语句1后，接着执行语句2。

var
aa: tstringlist;
i: integer;
begin
aa:= tstringlist.create;
aa.add( 'update wwl_user1 set DSP= '+''''+trim(DBComboBox1.Text)+''''+'where bm'+'='+''''+dv+''''+'and dj'+'='+''''+bb1+'''' ');
aa.add( ' 'update wwl_user1 set ADP '+'='+''''+trim(DBComboBox2.Text)+''''+'where bm'+'='+''''+dv+''''+'and dj'+'='+''''+bb1+'''';
fm_data.CD_user1.DataRequest(sql);
');
//执行
for i:= 0 to aa.count -1do
execsql(aa);
//连接
aa.text;
aa.free;
end;

我用的三层结构，SQL+DataSetProvider1+ADO+ClientDataSet1+DataSource1
我找不到ClientDataSet1.add( ' 'update wwl_user1 set ADP '+'='+''''+trim(DBComboBox2.Text)+''''+'where bm'+'='+''''+dv+''''+'and dj'+'='+''''+bb1+'''';
;
请说明白点好不，分不会少你的。谢谢

问题解决，真是高手，厉害。给你分；谢谢