一个诡异的错误 VBS 空变量判断

今天将一个自己写的 VBA 函数放到 VBS 去运行，发现一个想不到的诡异错误：空变量判断报错！

代码简化如下：

Option Explicit
dim DB

If DB Is Nothing Then
		'--------------------------
		Set DB = CreateObject("ADODB.Connection")  '数据库引擎'New ADODB.Connection
		'-----------------
end if

Set DB = Nothing

本意是判断 DB 对象是否已初始化，可是在  Is Nothing  这里就报错了，查了下，发现是   Is Nothing  判断的话，需要初始化为对象，而之前在 VBA 里面没有报错是因为对变量进行了定义先： Public DB As Connection  ，由此可见，需要培养变量初始化的好习惯。

以上代码初始化变量后即可正常运行：

Option Explicit
dim DB

Set DB = Nothing	' 必须初始化为 Nothing 才能用 is Nothing 判断。否则报错。

If DB Is Nothing Then
		'--------------------------
		Set DB = CreateObject("ADODB.Connection")  '数据库引擎'New ADODB.Connection
		'-----------------
end if

If DB Is Nothing Then
	msgbox "db Nothing"
else
	msgbox "db OK"
end if

Set DB = Nothing

由参考资料可见，VBS 中大部分情况下，初始判断还是使用 IsEmpty 适用。但是对于我这个用法来说，因为最后需要再次判断对象变量是否为空，所以还是只能使用初始化变量为 Nothing 的方法，否则， IsEmpty 判断空对象是返回 False ，这就没法用了。

‘------------------------------------参考资料

1、VBS - 空变量判断详解_weixin_30239339的博客-CSDN博客

2、https://www.cnblogs.com/wangn/p/3192192.html