对于select的结果是NULL的，,再写If (RS= "NULL ") Then,是吗，还是rs=null,要双引号吗
DataCommand.CommandText= "select max(I_NO) from T_NEWS_MS where I_CLS_CD= " & Trim (strCLSCD) & " "
Set RS=DataCommand.Execute
------解决方案--------------------
判断BOF和EOF就行了，结果为空的查询，BOF和EOF都为true