将excel数据上载到access表时出现运行时错误2147467259（80004005）

我正在使用Office 2016并尝试将数据从excel上传到Access数据库。我附上下面的代码。但是，在运行代码时，会收到错误消息@Newconn.open line

我使用的是windows 10 64位系统，并已激活Access 16.0对象库和ActiveX数据对象2.5库

以下代码供您参考：

Sub test()


Dim Newconn As ADODB.Connection
Set Newconn = New ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Set RecordSet = New ADODB.RecordSet
Dim Wb As Workbook, Ws As Worksheet

Set Wb = ThisWorkbook
Set Ws = Wb.Sheets("Sheet1")
Newconn.Open "Microsoft.ace.oledb.16.0;File Source:=C:\Users\Shazra\Desktop\Test\test.accdb"
RecordSet.Open "Table1", Newconn, adOpenDynamic, adLockOptimistic
RecordSet.Fields(0).Value = Ws.Range("A2").Value
RecordSet.Fields(1).Value = Ws.Range("B2").Value
RecordSet.Fields(2).Value = Ws.Range("C2").Value
RecordSet.Fields(3).Value = Ws.Range("D2").Value
RecordSet.Update
RecordSet.Close
Newconn.Close


End Sub

---

提前感谢您的建议。

您的关键词不正确。Try Provider=Microsoft.ACE.OLEDB.16.0；数据源=C:\Users\Shazra\Desktop\Test\Test.accdb；非常感谢你的冻糕。我在我的代码中添加了这些额外的：这会把我的代码弄乱。