主题：导入EXCEL数据的问题

        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