With records
      .AddNew
      For j = 0 To fieldCount
'        !Caption = domNodeList.Item(i).Text
        !tfields(j) = domNodeList.Item(i).Text
      Next
      .Update
      .Book = .LastModified
    End With
‘       !Caption = domNodeList.Item(i).Text  这样可以
 
        !tfields(j) = domNodeList.Item(i).Text 这样不可以
       tfields是一个存储字段名的字符串数组