将数据从Excel插入到使用VBA进行访问

我想运行代码连接到数据库，并插入到该数据库中的表。 连接工作正常，但是当我运行代码时，它只是将访问中的数据表复制到自身中。 所以，如果什么都没有，我什么也得不到。 但是，如果有一行数据，我会在每次连续运行代码时得到两个，然后是四个，然后是八个等。

我插入的表被称为PurchasedInventory 。 Excel中的命名范围也称为PurchasedInventory ，它是一个dynamic范围。 将命名范围更改为BuysedInventory之外的内容不能解决问题。

 Public Function connectdatabase() Set DBCONT = CreateObject("ADODB.connection") Dim strDBpath As String strDBpath = "C:\Documents and Settings\Brett\Desktop\LupeProject\LupeProject.accdb" Dim sConn As String sConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & strDBpath & ";" & _ "JET OLEDB:Engine Type=5;" & _ "Persist Security Info=False;" DBCONT.Open sConn DBCONT.Execute "INSERT INTO PurchasedInventory IN 'C:\Documents and Settings\Brett\Desktop\LupeProject\LupeProject.accdb' SELECT * FROM[PurchasedInventory]" End Function