主题：[求助]导入电子表格出现错误提示

示例二

如果希望出现一个打开文件对话框，导入用户指定的文件，可以参考下面的代码：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "订单" '指定要导入的表
    ip.NewTableName ="订单" '导入后的表名
    ip.Import()
End If

  我在命令窗口测试此段代码，我导入的是电子表格（文件名：订单.xls  其中包括一个名为“订单”的工作表）。

第二行我也改成：dlg.Filter= "excel文件|*.xls"，但是在执行中有错误，错误提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。我用了msgbox逐行测试，是在ip.import()有问题。

请问怎么解决？