关于查询的问题，虚心求教！！！

<P>For Each aLayer In frmMain.MapDisp.Layers
    If aLayer.LayerType = moMapLayer Then
      Set recs = aLayer.Records
    
    layerCount = layerCount + 1
      layerName(layerCount) = aLayer.Name
      Set Recs2(layerCount) = recs
 
         If recs.Count <> 0 Then
            recs.MoveFirst
          Dim i As Integer
            Do While Not recs.EOF
                   sstring = recs.Fields("Name").Value
                   mypos = InStr(1, sstring, xx, 1)
                     If mypos > 0 Then
                       strings.Add sstring
                     End If
              recs.MoveNext
            Loop
         End If
     End If
  Next
      
  If strings.Count = 0 Then
     MsgBox "没有查到该内容", vbInformation, "查询"
  Else
  
   For i = 0 To strings.Count - 1
        List1.AddItem strings(i)
  Next i
     List1.Visible = True
  End If</P>
<P>以上的程序只可以实现查询有字段name的图层，我想要实现查询其他字段，苦于无法开窍，有人可以帮帮我么？</P>
<P>另外，如何获得一个图层当前的记录字段名？</P>
<P>问题也许很弱，但请不要见笑。</P>

可以根据字段的索引来获取字段的名称