请问出:VBScript 运行时错误 错误 '800a005e' 怎样解决?

Microsoft VBScript 运行时错误 错误 '800a005e'
无效使用 Null: 'split'

就是这句: temps_pub=split(chkrs("CatePub"), ",")

详细代码是:
'检验用户的发布和管理权限函数，在用户发布和管理文章时用。
function chkPubUser(ChkUser,SubCateID) '检验发布权限
chkPubUser=false
sql="select CatePub,isActive from Admin_UserInfo where CategoryName='"&CategoryName&"' and UserName='"&ChkUser&"'"
set chkrs=SelectSql(sql)
if not (chkrs.bof and chkrs.eof) then
temps_pub=split(chkrs("CatePub"), ",")
for i = 0 to ubound(temps_pub)
if trim(temps_pub(i))=trim(SubCateID) and chkrs("isActive")=true then
chkPubUser=true
exit for
end if
next
end if
set chkrs=nothing
end function
---------------------------------------------------------------

首先看看你chkrs("CatePub")是否为null