用过DELPHI2006的进来看看解决办法

用过DELPHI2006的进来看看withDM.ADOQWeb1dobegincloseSQL.ClearSQL.Add( select*fronzhuangzzlb )Open

用过DELPHI2006的进来看看
with   DM.ADOQWeb1   do
    begin
        close;
        SQL.Clear;
        SQL.Add( 'select   *   fron   zhuangzzlb ');
        Open;
    end;
    DM.DataSweb1.DataSetField:=DM.ADOQWeb1;
    DBGridEh1.DataSource:=DM.DataSweb1;

在第八行提示有错误,
  E2010   Incompatible   types:   'TDataSource 'and   'TADOQuery '

什么原因呢?是不是哪里弄错了?谢谢大家

[解决办法]
应该是少了代码吧,
[解决办法]
在本Form加载下ADOQUERY控件试下
[解决办法]
DM.DataSweb1.DataSetField:=DM.ADOQWeb1;
DBGridEh1.DataSource:=DM.DataSweb1;

這兩行放到上面去