主题：代码出错

1、出现这个错误此提示，是因为你的目标数据库“金属到货登记.adb"已经存在数据表“到货登记1”。

导出是在目标数据库新建一个表，如果这个表已经存在，就会出错的。

2、如果已经建立数据源，而且导入导出都是同一个数据源，可以直接用下面的SQL语句复制：

Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select * Into {新的表} From {原来的表}"
cmd.ExecuteNonQuery

如果你针对这个access文件已经创建了数据源，那么可以先删除这个表，然后再导出。

删除表，可以看看：

http://www.foxtable.com/help/topics/2122.htm

Dim Builder As New ADOXBuilder("数据源")
Builder.Open()
With Builder
    .DeleteTable("表A")
    .DeleteTable("表B")
End With
Builder.Close()

这些代码都是经过测试的，不可能有问题的。

要么你数据源错了，要么你要删除的表名错了。

实在不行，将你多的这个access文件传上来，我做个例子给你看看。

1、 不同的问题，请分别发帖提问。

2、 提问最好具体描述问题，要是有个简单的例子更好。