请教!帮助看一段程序,奇怪,此段程序执行时,竟然没有错误,是关于SQL SERVER存储过程的..

我编程一软件用到数据库存储过程..执行过后,没得到预期结果,记录没有被存储,请看:
begin
if data_use.ADOStoredProc3.active then
     begin
      data_use.ADOStoredProc3.Parameters.ParamByName('@Date_zk').value:=datetimepicker1.date;
      data_use.ADOStoredProc3.Parameters.ParamByName('@Bm_zk').value:=ls_find;
      .....
      data_use.ADOStoredProc3.Prepared;
      data_use.ADOStoredProc3.ExecProc;
      end;