if MessageBox.Show("Visual Basic一點不難,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = true then
Tables("教师信息").Current.DeleteEnd if