更新Mapx地图的字段

'更新地图的字段
  Dim ftr As Feature
  Dim rs As ADODB.Recordset
  Map1.Layers("油井").KeyField = "name"
  For Each ftr In Map1.Layers.Item("油井").AllFeatures
    Set rs = oCn.Execute("select * from petro_well where wellname='" & ftr.KeyValue & "'")
    If Not rs.EOF Then
      ftr.KeyValue = rs("x2")
      ftr.Update
    End If
  Next