Dim cursor As IFeatureCursor Dim feature As IFeature Dim taxname As Integer cursor = featureLayer.Search(queryFilter, False) feature = cursor.NextFeature taxname = feature.Fields.FindField("taxname") Me.TextBox2.Text = feature.Value(taxname)
If (feature.Value(taxname)) Is DBNull.Value Then Me.TextBox2.Text = "" Else Me.TextBox2.Text = feature.Value(taxname) End If