主题：求助，执行动态删除表问题

Dim Name As String = e.Form.Controls("工程数量分表名称").Value
If Name = "" Then
    MessageBox.Show("分表不存在!")
    Return
End If
For Each dt As DataTable In DataTables
    If dt.Name.Contains(Name) Then
        MessageBox.Show(Name & "分表存在,可执行删除!","提示")
        Return
    End If
Next
Dim Builder As New ADOXBuilder
Builder.Open()
If MessageBox.Show("是否删除分表","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Question)=True Then
With Builder
    .DeleteTable(name)
End With
End If
Builder.Close()
Syscmd.Project.Open(ProjectFile)
MainTable = Tables("mian")
forms("创建工程数量分表").close()

问题：执行出现提示后，就不执行动态删除表啊？