Public Class TestForm
 
 
    Private WithEvents ds As New DataSet
    Private WithEvents table As New DataTable("Items")
 
 
    Private Sub TestForm_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        Dim itemColumn As New DataColumn("Item", Type.GetType("System.Int32"), _
          "")
 
 
        ds.Tables.Add(table)
        table.Columns.Add(itemColumn)
        Dim row As DataRow
 
        row = table.NewRow()
        row("Item") = 1
        table.Rows.Add(row)
 
        tb1.DataBindings.Add("Text", table, "Item", False, _
          DataSourceUpdateMode.OnValidation)
 
    End Sub
 
    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        ds.Tables(0).Rows(0).Item("Item") = "2"
    End Sub
 
    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        ds.Tables(0).Rows(0).Item("Item") = "3"
    End Sub
 
 
    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        tb2.Text = "tb1text = " & tb1.Text & " ds = " & ds.Tables(0).Rows( _
          0).Item("Item").ToString
 
    End Sub
End Class