请问这样的函数怎么会有错呢?急!!!!!!

                            
function   Tfrmzzy.Getxbdm(xxbmc:   string):   string;   
    begin  
      with   DM.ADOxbmcQuery   do  
        begin  
          Close;  
          Parameters.ParamByName('xbmc').Value:=xxbmc;  
          Open;  
          RESULT   :=FieldbyName('xbdm').AsString;  
          Close;  
        end;  
    end;  
  上面的函数是为了能够从数据库表中当xxbmc不同时,返回不同的值,但提示却有错误,请问这是什么原因呢?请各位前辈指教!!!急!  
 

查看回复