平台报销教程新增代码问题

平台报销教程新增代码，当员工表没有数据时，运行时错误‘94‘ ，无效使用null，红色那一句出现错误，如何解决？（注：有数据时没有问题）

在鼠标光标处，输入以下代码：

Dim rst As Object
Dim strSQL As String
Dim MaxID As String
Dim currentID As String

Dim strFrm As String

If IsNull(Me.txtygxm) Then
  MsgBox "请输入员工姓名!", vbCritical, "提示"
  Me.txtygxm.SetFocus
  Exit Sub
End If

MaxID = DMax("[ygID]", "tblCodeyg")
currentID = "Y" & Format(Val(Right$(MaxID, 2) + 1), "00")

strSQL = "select * from tblCodeyg"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.AddNew
rst!ygID = currentID
rst!ygxm = Me.txtygxm
rst.Update
rst.Close
Set rst = Nothing
Me.txtygxm = Null

strFrm = Form_frmYg_sg_Main!frmChild.SourceObject
Form_frmYg_sg_Main!frmChild.SourceObject = strFrm
MsgBox "您录入的数据保存已成功！", vbInformation, "消息"