主题：导入数据速度问题求教？

版主：昨天往一表中测试导入数据，总共不到2万行，导了有几分钟，一开始象没反应一样，搞得我还以为死机了；另外同样的数据量。删除也要很长时间，这是正常的吗?

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim Book As New XLS.Book(fl)
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.Format = "Excel"
        mg.SourceTableName = Book.Sheets(0).Name & "$"
        Select e.Form.Controls("TabControl1").SelectedPage.Text
            Case "报名登记表"
                mg.DataTableName = "报名登记表"
                mg.Merge()
            Case "审核合格表"
                mg.DataTableName = "审核合格表"
                mg.Merge()
               
        End Select
    Next
End If
上述导入按钮的CLICK事件代码，同样的数据点击几次就导入几次，如果我想做到只导入修改了的行的数据，没改的不重复导入，这代码该怎么写？如果导入时能有提示的那种更好，请版主指教！