主题：[求助]删除对话框

Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一點不難，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    MessageBox.Show("不錯，說明你已經認真學習了。","提示")
Else
    MessageBox.Show("好好學習吧，你會認同這個看法的。","提示")
End if

這是幫助中拷來的,看看幫助吧,不然,就是再大的奶爸,也供不上

Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一點不難，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)  
If Result = DialogResult.Yes Then
    Tables("教师信息").Current.Delete
End if