Dim resultSet As Dynaset = new Dynaset
Dim code As String
code = result.Fields("code").Value
result.Fields("code").Value = "1010"

Public Class Dynaset
　Public table As DataTable
　〜〜省略〜〜
　Public ReadOnly Property Fields(ByVal name As String) As Field
　　Get
　　　Return New Field(table.Rows(0).Item(name))
　　End Get
　End Property
End Class

Public Class Field
　Private _object As Object
　Public Sub New(ByRef obj as Object)
　　_object = obj
　End Sub
　Public Property Value() As Object
　　Get
　　　Return _object
　　End Get
　　Set(ByVal Value As Object)
　　　_object = Value
　　End Set
　End Sub
End Class