在多表共用一个 ADODataSet 的时候，可以通过如下代码优化代码。
具体做法：只在窗体上拖放一个 ADODataSet 组件，然后在连接不同的表的事件中，使用以下类似代码即可：
ADODataSet1.Close;
ADODataSet1.CommandText := 'Select * from <不同的表名>';
ADODataSet1.Parameters.Clear;
ADODataSet1.Parameters.ParseSQL(ADODataSet.CommandText, true);
ADODataSet1.Open;
以上代码中，语句 ADODataSet1.Parameters.ParseSQL(ADODataSet1.CommandText, true) 是关键代码。通过 ParseSQL 方法解构 ADODataSet.CommandText 的 SQL 语句，建立 ADODataSet1 新的对象参数，从而使新的查询生效。