Update MapX map Fields

' Update map Fields
Dim FTR As Feature
Dim RS As ADODB. recordset
Map1.layers ( " Oil Wells " ). Keyfield =   " Name "
For   Each FTR in map1.layers. Item ( " Oil Wells " ). 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