主题：beforeclose错误

BeforeClose
详细错误信息：
未将对象引用设置到对象的实例。

If Tables("hsbcusd1").Current.isnull("年份") = True Then
    MessageBox.Show("年份不能为空,请输入年份!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If
If Tables("hsbcusd1").Current.isnull("年月") = True Then
    MessageBox.Show("年月不能为空,请输入年月!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

请老师告知错在哪里？ 这段代码如何正确写？