主题：保存数据

 想实现在编辑窗口里，如果数据有修改，关闭之前提示要保存，保存后才可以关闭窗口，如果数据未修改，则可以直接关闭
这个怎么实现
我再BeforeClose写了代码如下：
If Tables("gdzc").Current.DataRow.RowState <> DataRowState.unchanged Then '如果当前行已经修改过
Dim Result As DialogResult
Result = MessageBox.Show("请先保存记录", "提示")
e.Cancel = True
End If
可是这个代码不对，就算是没有修改数据，他也会提示“请先保存记录”，这个怎么改呀