主题：求导入合并数据代码

1、删除当前表的所有行代码如何写
2、Merger合并文件时不能正确导入数据上，编写代码如下：附原始文件
   
Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   FileSys.CopyFile(dlg.filename, "C:\kk.txt",True)
   Dim mg As New Merger
   mg.SourcePath = "c:\" '指定数据文件所在目录
   mg.Format = "Delimited" '指定格式
   mg.SourceTableName = "kk" '指定要合并的文本文件,无需扩展名
   mg.DataTableName = "data" '指定接收数据的表
   mg.Merge() '开始合并
end if