主题：这段代码导入电子表格，提示出错？老大帮帮忙

Dim dlg As New OpenFileDialog    '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls"        '设置筛选器
dlg. title= "接收电子表格文件"
If dlg.ShowDialog = DialogResult.Ok Then       '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
    Dim ip As New Merger
    ip.SourcePath = dlg.FileName  '指定数据文件
    ip.Format = "excel" '指定合并文件格式
    ip.SourceTableName = "基础数据$"      '指定要合并的表
 '   ip.Fields = "数据"   ' 指定要合并的字段(列)
    ip. DataTableName ="基础数据" '合并后的表名
    ip.FieldMaps.Add("数据","数据")
    ip. Merge()   '开始合并
End If

'excel表的表名不需要加$

'excel表最好设置标题行---数据

'见红色部分