窗口Tables("QH_项目信息")中有“新增行”和“关闭”按钮，

关闭按钮设置如下代码：

Dim dr As Row = Tables("QH_项目信息").Current
dr.Reject()
e.form.close()
Syscmd.Table.lock()

当新增了行，再点关闭的时候，出现如下错误

错误显示：Microsoft.NET Framework

应用程序发生了无法处理的异常。如果单击“继续”，应用程序将忽略此错误并尝试继续。如果单击“退出”，应用程序将立即关闭。

索引31 不是为负数，就是大于行数。

请教各位老师，怎么处理。