Vb.net VB 2012：使用ADO记录集添加新记录、修改记录MSACCESS

我试过下面的代码， 1） 按钮3\u Click（）…对于添加新记录，并没有错误消息，但并没有记录添加到数据库中 2） 按钮2\u Click（）…对于更新记录，显示一条错误消息“无法从程序集“WindowsApplication1，版本=1.0.0.0，区域性=中性，PublicKeyToken=null”加载类型“ADODB.FieldsToInternalFieldsMarshaler”

有人能帮忙吗

Public Class Form1



Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    'update 1st record
    Dim rs As New ADODB.Recordset

    Dim cn As New ADODB.Connection()
    cn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb;"
    cn.Open()

    rs.Open("SELECT * FROM Users", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockBatchOptimistic)


    rs.MoveFirst()
    rs.Fields("EmpName").Value = "AAAAA"
    rs.Fields("EmpId").Value = "222"
    rs.UpdateBatch()

    rs.Close()
    cn.Close()
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    'add new Record

    Dim rs As New ADODB.Recordset

    Dim cn As New ADODB.Connection()
    cn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb;"
    cn.Open()

    rs.Open("SELECT * FROM Users", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockBatchOptimistic)

    Dim fieldsArray(1) As Object
    fieldsArray(0) = "EmpName"
    fieldsArray(1) = "EmpId"
    Dim values(1) As Object
    values(0) = "4"
    values(1) = "as"

    rs.AddNew(fieldsArray, values)
    rs.UpdateBatch()

    rs.Close()
    cn.Close()
End Sub

---

End Class

查看我测试并运行的代码：表1有两个字段。我添加了一行，其中包含两个值

    Dim cnn As New ADODB.Connection
    Set cnn = CurrentProject.Connection
    Dim rs As New ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "Table1", cnn, adOpenKeyset, adLockOptimistic

    rs.AddNew
    rs.Fields(1) = "a"
    rs.Fields(2) = "b"
    rs.UpdateBatch

---

我认为这是vbscript，VB2012需要这个。不是vba，ADODB总是一样的。