If DataTables("产品").HasChanges Then
    If MessageBox.Show("产品表已经被修改，是否保存？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("产品").Save()
    End If
End If