excel - 无法在EXCEL VBA中更新ADO记录集

我正在创建一个使用Excel范围作为数据源的记录集。该代码是

    Sub Hello()

    Dim xlXML             As Object
    Dim adoRecordset      As Object
    Dim rng               As Range

    Set rng = Range("A1:C6")
    Set adoRecordset = CreateObject("ADODB.Recordset")
    Set xlXML = CreateObject("MSXML2.DOMDocument")
    xlXML.LoadXML rng.Value(xlRangeValueMSPersistXML)
    adoRecordset.CursorLocation = 3
    adoRecordset.Open xlXML, CursorType:=2, LockType:=3

    adoRecordset.Movefirst

    adoRecordset.Fields(1) = 1000 'this is the error line
    adoRecordset.Update

    Set adoRecordset = Nothing
    Set xlXML = Nothing

    End Sub

我无法更新数据集，出现错误“多步操作生成错误。检查每个值（-2147217887）”。我不知道我要去哪里错了。我正在使用Excel 2007。

最佳答案

我认为在记录集中添加新行或编辑现有行之前，您必须输入：

adoRecordset.Edit
' OR
adoRecordset.AddNew