主题：[讨论]通过按钮新增行，如何使新增首行的时候不跳出对话框？

通过按钮新增首行的时候跳出对话框，如何使新增首行的时候不跳出对话框？

With Tables("项目情况登记表")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("项目情况登记表").AddNew()
    Else
        MessageBox.Show("当前数据已修改,请先保存!")
    End If
End With

不知道如何修改代码？