主题：导入文本文件的问题

我要把文本文件导入到一个叫“贷款分户账"的表中，以下代码为什么报错，请老师指点：Dim dlg As New OpenFileDialog
dlg.Filter = "全部文件|*.*"
dlg.MultiSelect = False '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName
    ip.SourceTableName =dlg.FileName'指定要导入的文件
    ip.newTableName ="贷款分户账" '导入后的表名
    ip.Format = "Delimited" '指定导入格式
    ip.Import()
End If