主题：导入数据按钮代码求教？

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 mg As New Merger
        mg.SourcePath = fl
        mg.Format = "Excel"
        mg.SourceTableName = "理论机考表$"
        mg.DataTableName = "理论机考表"
        mg.Merge()
    Next
End If

With DataTables("理论机考表")
    .DataCols("身份证号码").RaiseDataColChanged()
   
End With

导入数据时，如有单元格数据发生了变化，不是覆盖导入，而是在原有的行数上增加，这是为什么？