主题：EXCEL导入的问题

代码如下，导入后，会出现很多空白行。何解？？？

        Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

        dlg.Filter= "Excel文件|*.xls" '设置筛选器

        If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

            Dim mg As New Merger

            mg.SourcePath = dlg.FileName  '指定数据文件

            mg.Format = "excel" '指定格式

            mg.SourceTableName = "Sheet1$" '指定要合并的表

            mg.DataTableName = CurrentTable.name '指定接收数据的表

            mg.Merge() '开始合并

        End If