主题：excel文件导入

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "钢厂发货明细表" '指定要导入的表
    ip.NewTableName = "钢厂发货明细表" '导入后的表名
    ip.Import()
End If
提示：以存在同名表 "钢厂发货明细表"  请问要怎样改代码？