SQL语句取不到值

SQL语句取不到值，求助
第一次用Delphi

sql:= 'select   max(kw)   as   A   from   max_kw   where   yh_id   = 'H00001 '   and   date   like   ' ' '+ '*4-18* '+ ' ' ' ';
                    DM.DataModule1.ADOQuery1.Close;
                    DM.DataModule1.ADOQuery1.SQL.Clear;
                    DM.DataModule1.ADOQuery1.SQL.Add(sql);
                    DM.DataModule1.ADOQuery1.open   ;
                    max_data:=DM.DataModule1.ADOQuery1.FieldByName( 'A ').AsString;

请问各位高人，max_data为什么取不到值？SQL语句在数据库运行是有结果的，数据库为Access

[解决办法]
报错了吗?

DM.DataModule1好象...