以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求救！！！不可识别的数据库格式 'E:\物料信息.xls'。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43693)
--  作者：zqing
--  发布时间：2013/12/12 22:39:00
--  求救！！！不可识别的数据库格式 'E:\物料信息.xls'。
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "物料信息"
    mg.DataTableName = "物料信息表"
    mg.Merge()
End If

我上面代码没有问题吧，怎么点击导入按钮就出现 不可识别的数据库格式。。请大侠求救！！
图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:物料信息.xls
--  作者：有点甜
--  发布时间：2013/12/12 22:43:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.Format = "excel"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "物料信息$"
    mg.DataTableName = "物料信息表"
    mg.Merge()
End If