求解决800a01c2错误的方法

系统显示 800a01c2错误，显示sn  466行报错：该代码段如下:
'查询串号是否重复
function sn(isn,qzui)
dim snnum
'Set rss = db.list("wxuser_info","sn","sn='"&isn&"'","id desc",1)
Set rss = db.GetRecordDetail("wxqrsn","sn='"&isn&"'") 
 if not rss.eof then
  thissnk=Rndnumkey(6)&rss("id")&Rndnumkey(6)  
snnum= sn(qzui&right(thissnk,len(thissnk)-8))
 else
  snnum=isn
 end if
set rss=nothing
sn=snnum
end function求大神指点