[求助]属性查询在VB.NET里怎么实现？急！谢谢！

<P>这是vb6.0里的实现方法，怎么能在vb.net用啊，改了一天没改成功！今天来问大家！</P>
<P>Private Sub Form_Load()<BR>   Set Col = ListView1.ColumnHeaders.Add()<BR>  Col.Text = "Field"<BR>  Set Col = ListView1.ColumnHeaders.Add()<BR>  Col.Text = "Value"</P>
<P>  Dim dc As New DataConnection<BR>  dc.Database = ReturnDataPath("world")<BR>  If Not dc.Connect Then End<BR>  <BR>  Dim layer As MapLayer<BR>    <BR>  Set layer = New MapLayer<BR>  Set layer.GeoDataset = dc.FindGeoDataset("country")<BR>  layer.Symbol.Color = 4636724<BR>  Map1.Layers.Add layer<BR>End Sub</P>
<P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)<BR>   Set l = Map1.Layers("country")<BR>   Set p = Map1.ToMapPoint(x, y)<BR>  <BR>   Set recs = l.SearchShape(p, moPointInPolygon, "")<BR>  <BR>  If Not recs.EOF Then<BR>        ListView1.ListItems.Clear</P>
<P>    For Each fld In recs.Fields  ' iterate over the fields<BR>      Set newItem = ListView1.ListItems.Add<BR>      newItem.Text = fld.Name<BR>      newItem.SubItems(1) = fld.ValueAsString  </P>
<P>    Next fld<BR>  End If<BR>End Sub<BR>刚刚开始接触MO！请好心人给个详细解决办法吧！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em12.gif" />