主题：数据导入的速度求帮助！

Dim Result As DialogResult
Result = MessageBox.Show("确定要导入吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then

.....

导入代码....

......

    MessageBox.Show("导入完成。","提示")
Else
    MessageBox.Show("我改主意了,不导入了。","提示")
End if