求delphi+sql设计中怎么查询含有多个数字相同的数字

变量 km_num：string 是全局变量

procedure Tmingxikemu.DBGrid1CellClick(Column: TColumn);
begin
    km_num:=adoquery1.Fieldbyname('科目编号').AsString ;
  
end;

end

procedure Tmingxikemu.BitBtn1Click(Sender: TObject);
begin
  adoquery1.Close ;
   adoquery1.SQL.Clear ;
  adoquery1.SQL.Add('select * from 科目表1 where 科目编号 like '''+km_num+'%''');
   adoquery1.Open ;
为什么只能查到一个km_num所指的一个值  而把km_num改为数字就可以查到所有所写数字开头的全部数