奇怪的问题我错在哪里啊?

Question

Dim Sql_Tmp As String
      Dim rs_tmp As New ADODB.Recordset
      Dim sID As String
      
  Sql_Tmp = "select max(right(Serial,2))+1 as sID from Student where class='" & .cboClass.Text & "'"
      rs_tmp.Open Sql_Tmp, DataEnv.Con, 1, 3
      
If Not rs_tmp.EOF Or Not rs_tmp Then
          sID = rs_tmp("sID")
Else
sID = "1"End If
以上的代码意思是如果记录不为空时就去值哦!但不知道为什么当记录为空时运行调试说  sID = rs_tmp("sID")
错误说"使用无效 NULL"我错在哪里啊?
我的目的就是当数据库中没有sID,就给sID为"1",这么简单!

Answer 1

空记录时max(right(Serial,2))得出的结果为null,null和1不能相加，当然出错，其实你可以把max单独select出来然后在外面增1，这样即使是空记录时也能进行判断了

Answer 2

sID = IIf(IsNull(rs_tmp("sID").Value), 1, rs_tmp("sID").Value)