Hmmm... I guess I am not sure what to tell you. It looks like your data is getting bound correctly. Is it displaying the way you expected it?

>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