将Excel工作表移动到使用VBA错误进行访问

您好，我正在尝试将Excel工作表移动到Access数据库，它们都具有相同的字段名称。 该代码是用Excel编写的。

用户input多个表单字段，点击完成后，更新一个单独的工作表。 然后，调用更新Access子例程以使用工作表内容更新数据库。 但是，我仍然收到以下错误：

运行时错误'-2147417848（80010108）'：自动化错误被调用的对象已从其客户端断开连接。

我GOOGLE了错误，不能看到发生了什么事情。 这是我的代码：

Sub Update_Access_fromExcel() 

将活动工作表中的数据导出到Access数据库中的表中

 Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' Connect to Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=D:\Tool_Database\Tool_Database.mdb;" ' open the recordset Set rs = New ADODB.Recordset rs.Open "Project_Names", cn, adOpenKeyset, adLockOptimistic, adCmdTable r = 2 Do Until IsEmpty(Worksheets("NewProj").Cells(r, 1)) With rs .AddNew .Fields("Proj_Name") = Worksheets("NewProj").Cells(r, 1).Value .Update End With r = r + 1 Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing 

结束小组

另外，有没有一种方法可以将新的信息添加到Access数据库的末尾？

谢谢你的帮助。