不能更新EXCEL VBA中的ADOlogging集

我创build一个使用Excel范围作为数据源的logging集。 代码是

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。