I found out a strange issue in VB.NET 2003 and I am wondering if someone else
had the same problem.
Everything is done programmatically at run-time.
I fill a tableset within a dataset with data from any database (for
simplifying I get only one record).
I bound a textbox to one of the record's fields.
I add a button and on its click event I change the content of the text box.
At this moment, if I am looking at control's Text property, I will see the
new value but if I am looking into the tableset for the bound field I will se
the old value.
If the change in the text-box is performed manually, right after leaving the
text-box the tableset's bound field is updated.
In other words it sounds to me like anytime you programmatically change the
TEXT property of a bound control, the change is not also performed in the
bound field too.
To me this thing sounds like a bug that will affect whoever is trying to
work bound and change data programmatically because all these changes will be
lost.
I would appreciate if someone would have an input regarding this issue.

I am giving the code that should be inserted in the Form1 of a new project.
If you have a SQL Server (or MSDE) with Northwind database on the local
machine, code will work as it is, otherwise the connection string should be
changed
Thanks in advance,

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
  Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

  Public Sub New()
     MyBase.New()

     'This call is required by the Windows Form Designer.
     InitializeComponent()

     'Add any initialization after the InitializeComponent() call

  End Sub

  'Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
     If disposing Then
        If Not (components Is Nothing) Then
           components.Dispose()
        End If
     End If
     MyBase.Dispose(disposing)
  End Sub

  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  Friend WithEvents Label2 As System.Windows.Forms.Label
  Friend WithEvents cmdChange As System.Windows.Forms.Button
  Friend WithEvents Customer As System.Windows.Forms.TextBox
  Friend WithEvents Label1 As System.Windows.Forms.Label
  Friend WithEvents City As System.Windows.Forms.TextBox
  Friend WithEvents State As System.Windows.Forms.TextBox
  <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
     Me.cmdChange = New System.Windows.Forms.Button
     Me.Label2 = New System.Windows.Forms.Label
     Me.Customer = New System.Windows.Forms.TextBox
     Me.Label1 = New System.Windows.Forms.Label
     Me.City = New System.Windows.Forms.TextBox
     Me.State = New System.Windows.Forms.TextBox
     Me.SuspendLayout()
     '
     'cmdChange
     '
     Me.cmdChange.Location = New System.Drawing.Point(192, 60)
     Me.cmdChange.Name = "cmdChange"
     Me.cmdChange.Size = New System.Drawing.Size(100, 23)
     Me.cmdChange.TabIndex = 5
     Me.cmdChange.Text = "Change Address"
     '
     'Label2
     '
     Me.Label2.Location = New System.Drawing.Point(4, 32)
     Me.Label2.Name = "Label2"
     Me.Label2.Size = New System.Drawing.Size(72, 16)
     Me.Label2.TabIndex = 2
     Me.Label2.Text = "State/City:"
     '
     'Customer
     '
     Me.Customer.Location = New System.Drawing.Point(76, 4)
     Me.Customer.Name = "Customer"
     Me.Customer.Size = New System.Drawing.Size(220, 20)
     Me.Customer.TabIndex = 1
     Me.Customer.Text = ""
     '
     'Label1
     '
     Me.Label1.Location = New System.Drawing.Point(8, 8)
     Me.Label1.Name = "Label1"
     Me.Label1.Size = New System.Drawing.Size(72, 16)
     Me.Label1.TabIndex = 0
     Me.Label1.Text = "Customer:"
     '
     'City
     '
     Me.City.Location = New System.Drawing.Point(120, 28)
     Me.City.Name = "City"
     Me.City.Size = New System.Drawing.Size(176, 20)
     Me.City.TabIndex = 4
     Me.City.Text = ""
     '
     'State
     '
     Me.State.Location = New System.Drawing.Point(76, 28)
     Me.State.Name = "State"
     Me.State.Size = New System.Drawing.Size(40, 20)
     Me.State.TabIndex = 3
     Me.State.Text = ""
     '
     'Form1
     '
     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
     Me.ClientSize = New System.Drawing.Size(304, 94)
     Me.Controls.Add(Me.State)
     Me.Controls.Add(Me.City)
     Me.Controls.Add(Me.Customer)
     Me.Controls.Add(Me.Label1)
     Me.Controls.Add(Me.cmdChange)
     Me.Controls.Add(Me.Label2)
     Me.Name = "Form1"
     Me.Text = "Form1"
     Me.ResumeLayout(False)

  End Sub

#End Region
  Dim ds As New DataSet
  Dim da As SqlDataAdapter
  Dim g_Conn As New SqlConnection

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
     Try
        g_Conn.ConnectionString = "Server=(local); Integrated
Security=SSPI; Database=Northwind; Connection Timeout=5"
        g_Conn.Open()
        Dim sSQL As String = "SELECT TOP 1 CompanyName, Region, City FROM
Customers (NOLOCK) WHERE Country = 'USA'"
        da = New SqlDataAdapter(sSQL, g_Conn)
        da.Fill(ds, "Customer")
        Call BindingData()
     Catch ex As Exception
        MsgBox("Loading Error: " + ex.Message)
     End Try
  End Sub
  Private Sub BindingData()
     Try
        If Customer.DataBindings.Count > 0 Then
           Customer.DataBindings.Clear()
           City.DataBindings.Clear()
           State.DataBindings.Clear()
        End If
        Customer.DataBindings.Add("Text", ds, "Customer.CompanyName")
        City.DataBindings.Add("Text", ds, "Customer.City")
        State.DataBindings.Add("Text", ds, "Customer.Region")
     Catch ex As Exception
        MsgBox("BindingData Error: " + ex.Message)
     End Try

  End Sub

  Private Sub cmdChange_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdChange.Click
     Try
        Debug.WriteLine(ds.Tables("Customer").Rows(0).Item("City") + ", " +
ds.Tables("Customer").Rows(0).Item("Region"))
        City.Text = "San Jose"
        State.Text = "CA"
        Debug.WriteLine(ds.Tables("Customer").Rows(0).Item("City") + ", " +
ds.Tables("Customer").Rows(0).Item("Region"))
     Catch ex As Exception
        MsgBox("Changing Error: " + ex.Message)
     End Try
  End Sub
End Class