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