调试李维《Delphi.5.x.分布式多层应用系统》书中的第二个列子时,报"灾难性故障"的问题??? ( 积分: 50 )

我照书上顺序检查了多遍,确定跟书上所述一样,可是还是报这个错误.
也照书上把DataSetProvider的poAllowCommandText属性设为True.
我想可能是ClientDataSet1组件Open出错.
if (PageControl1.ActivePageIndex = 0) then
begin
sSelect := sSQl + lbTables.Items[lbTables.itemindex] ;
ClientDataSet1.Close;
ClientDataSet1.CommandText := sSelect;
ClientDataSet1.Open;
///出错
end
else
begin
sSelect := mmSql.Text;
ClientDataSet1.Close;
ClientDataSet1.CommandText := sSelect;
ClientDataSet1.Open;///出错
end;

我调试了一下,是程序到open这句时才出错.
什么原因呢??