主题：[求助]导入XLS文件至现有表中

因工作中需要导入不同内容，但格式一样的XLS文件进行数据处理，

现要实现“窗口1”，“导入”按钮的代码，

要求:
1.先判断原有的成绩表是否有记录,如有则全部删除.
2.根据选择的文件及工作表,把所有数据导入至现有的"成绩表"中.

备注:成绩表与XLS文件的结构相同.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入xls.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩排名.xls

导入代码，加入删除原有数据功能。

Dim str1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim str2 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim check1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")

If check1.Checked = True
  DataTables("成绩表").DeleteFor("")
End If

Dim Book As New XLS.Book(str1.text)
Dim Sheet As XLS.Sheet = Book.Sheets(str2.text)
Tables("成绩表").StopRedraw()

Dim nms() As String = {"班级","学号","姓名","语文","数学","英语","物理","化学"}

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("成绩表").AddNew()
    For m As Integer = 0 To nms.Length - 1
        r(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("成绩表").ResumeRedraw()
DataTables("成绩表").save
DataTables("成绩表").Load

MessageBox.Show("导入完成")

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入xls.table

上面这个例子，如果导入窗口放入一个绑定“成绩表”的TABLE控件，则导入速度会变慢。

请问如何消除这个问题？