How to choose only one field name?

My situation :

Quote:

---

When I load the table that contain field name "CLASS". it work Fine to me because only field name "CLASS" is exist in that shapfile

The problem come out when I load second table that contain both field field name "Kg_N" and "Kg_P" .I found that, the problem is because there are two field name is exist in table This might confusing the system becuase of this two field name is exist in table.

---

Question :

How to choose and select only one field name from the table if two field name are found exist in the table?

Code:

---

Set vmr = New MapObjects2.ValueMapRenderer
 
  Dim fld As MapObjects2.Field
  Dim FoundFieldname As Boolean
  For Each fld In recs.Fields
 
    If fld.Name = "CLASS" Then
    FoundFieldname = True

          Dim j As Integer
          Dim strcStateName As New MapObjects2.Strings
          strcStateName.Unique = True
   
          Do Until recs.EOF
          strcStateName.Add recs.Fields("class").Value
          recs.MoveNext
          Loop
          vmr.Field = "class"
   
 
          vmr.ValueCount = strcStateName.Count
          For j = 0 To strcStateName.Count - 1
          vmr.Value(j) = strcStateName(j)
          Next
 
          Set mlyr.Renderer = vmr

    'Exit For
    ElseIf fld.Name = "Kg_N" Then
    FoundFieldname = True

        strcStateName.Unique = True
        Do Until recs.EOF
        strcStateName.Add recs.Fields("Kg_N").Value
        recs.MoveNext
        Loop
 
        vmr.Field = "Kg_N"
 
        vmr.ValueCount = strcStateName.Count
        For j = 0 To strcStateName.Count - 1
        vmr.Value(j) = strcStateName(j)
        Next
        ' Set mlyr.Renderer = vmr
    'Exit For
   
    'Exit For
    ElseIf fld.Name = "Kg_P" Then
    FoundFieldname = True

        strcStateName.Unique = True
        Do Until recs.EOF
        strcStateName.Add recs.Fields("Kg_P").Value
        recs.MoveNext
        Loop
 
        vmr.Field = "Kg_P"
 
        vmr.ValueCount = strcStateName.Count
        For j = 0 To strcStateName.Count - 1
        vmr.Value(j) = strcStateName(j)
        Next
        Set mlyr.Renderer = vmr
    'Exit For
   
    End If
   
  Next fld
    If FoundFieldname = False Then
    'MsgBox "no field name found"
    GoTo nofield:
    Exit Sub
    End If

---