Opera下读取数据库字段

CookieUpdatedClass=Rs("UpdatedClass")

If CookieUpdatedClass="" Then  
   CookieUpdatedClass="ClassRoom"
End if

通过Rs读取数据库记录，获得UpdatedClass的值，如为空则赋值。

但在Opera下赋值不成功，改成CookieUpdatedClass=empty也不行，应该怎么判断值为空呢？
------解决方案--------------------
'判断空
Function isNil(ByVal str)
isNil = False
Select Case VarType(str)
Case vbEmpty, vbNull
isNil = True : Exit Function
Case vbString
If str="" Then isNil = True : Exit Function
Case vbObject
If TypeName(str)="Nothing" Or TypeName(str)="Empty" Then isNil = True : Exit Function
Case vbArray,8194,8204,8209
If Ubound(str)=-1 Then isNil = True : Exit Function
End Select
End Function