主题：excel导入出错

按键代码为：

Dim a As New OpenFileDialog
a.Filter= "excel文件|*.xls"
If a.ShowDialog = DialogResult.OK
    Dim mg As New Merger
    mg.SourcePath = a.FileName
    mg.Format = "excel" 
    mg.SourceTableName = "标准产品$" 
    mg.DataTableName = "标准产品" 
    mg.Merge() 
    MessageBox.Show("执行A")
End If

 

出错是：

此主题相关图片如下：导入出错.jpg

 

狐表数据表格式为：

此主题相关图片如下：狐表数据表.jpg

 

excel数据表格式为：

此主题相关图片如下：excel数据表.jpg

 

求高手指点