主题：删除按钮提示怎么做?

Dim Result As DialogResult
Result = MessageBox.Show("是否删除本行？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then

       Tables("基本信息").Current.Delete
    MessageBox.Show("数据已删除","提示")
End if