大家看看我这段代码有错误吗？为什么不更新Bx_SysDataCW表的值。(10分)

大家看看我这段代码有错误吗？为什么不更新Bx_SysDataCW表的值。
var
DatabaseName, DataFileName, SQLStr, ComputerName, Connect: string;
begin
ComputerName := Edit2.Text;
CreatData1.ADOTab1.Close;
CreatData1.ADOTab1.Open;

Connect := 'Provider=SQLOLEDB.1;Password=13673190800;Persist Security Info=True;User ID=Yangzh;Initial Catalog='
+ ComputerName + ';Data Source='
+ CreatData1.ADOTab1.FieldByName('ServerName').AsString;
CreatData1.ADOConAccount1.Close;
CreatData1.ADOConAccount1.ConnectionString := Connect;
CreatData1.ADOConAccount1.Open;

ADOQry2.SQL.Clear;
ADOQry2.SQL.Add('UPDATE ' + Edit2.Text +'.dbo.Bx_SysDataCW');
ADOQry2.SQL.Add('SET SubValue= :SubValue');
ADOQry2.SQL.Add('WHERE SubNo= 1');
ADOQry2.Parameters.ParamByName('SubValue').Value := Edit6.Text;
ADOQry2.ExecSQL;
end;