Mike:

I used , but unfurtunelly Everytime I move my control did not update the record.

Me.Dept_PkTxt.BindingContext(depts_changes, depts_changes.Table.Columns(1).ToString).EndCurrentEdit()
Me.Dept_nameTXT.BindingContext(depts_changes, depts_changes.Table.Columns(3).ToString).EndCurrentEdit()
Me.Dept_AbbTxt.BindingContext(depts_changes, depts_changes.Table.Columns(2).ToString).EndCurrentEdit()


The code that create the binding is here,

Public Sub New(ByVal parentdataset As DataSet)
Depts_changes_final = parentdataset

' This call is required by the Windows Form Designer.
InitializeComponent()
depts_changes.Table = parentdataset.Tables(0)


depts_changes.RowFilter = "Lsele = True"
depts_changes.AllowEdit = True

rposition = CType(Me.BindingContext(depts_changes), CurrencyManager)
Dim depts_DB As New BindingSource

depts_DB.DataSource = depts_changes
Me.Dept_selection_BNav.BindingSource = depts_DB
Me.Dept_PkTxt.DataBindings.Add("Text", depts_changes, depts_changes.Table.Columns(1).ToString)
Me.Dept_nameTXT.DataBindings.Add("Text", depts_changes, depts_changes.Table.Columns(3).ToString)
Me.Dept_AbbTxt.DataBindings.Add("Text", depts_changes, depts_changes.Table.Columns(2).ToString)
depts_changes.AllowEdit = True

' Add any initialization after the InitializeComponent() call.
End Sub