Public Class Form4

    'Adapter
    Dim MySettingsAdapter As New TestDSTableAdapters.SettingsTableAdapter

    Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'GridSettings
        With MyGrid
            .UpdateMode = Infragistics.Win.UltraWinGrid.UpdateMode.OnCellChange
            With .DisplayLayout
                .Override.SelectTypeRow = Infragistics.Win.UltraWinGrid.SelectType.Single
                .Override.CellClickAction = Infragistics.Win.UltraWinGrid.CellClickAction.RowSelect
            End With
            MyGrid.DisplayLayout.Bands(0).Override.RowSelectors = Infragistics.Win.DefaultableBoolean.True
        End With


        'DataDource
        'MyGrid.DataSource = MySettingsAdapter.GetData

        'Bind data to grid
        MyGrid.DataSource = MySettingsAdapter.GetData

        'Bind data to textbox
        KeyNameTextBox.DataBindings.Add("Value", MyGrid.DataSource, "KeyName", True)

    End Sub

   
 
    Private Sub UpdateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateButton.Click

        'Me.ValidateChildren()
        MyGrid.Refresh()
        'MyGrid.BeginUpdate()
        'MyGrid.UpdateData()
        'MyGrid.EndUpdate()

        'Me.SelectNextControl(MyGrid, True, False, False, False)
        Dim MyCurrentRow As Integer = MyGrid.Selected.Rows(0).Index
        MyGrid.BeginUpdate()

        MyGrid.Rows(0).Selected = True
        MyGrid.Rows(0).Activated = True
        'Try to update
        MySettingsAdapter.Update(CType(MyGrid.DataSource, DataTable).GetChanges)

        MyGrid.Rows(MyCurrentRow).Selected = True
        MyGrid.Rows(MyCurrentRow).Activated = True

        MyGrid.EndUpdate()

    End Sub

    Private Sub RefreshButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshButton.Click

        MyGrid.DataSource = MySettingsAdapter.GetData

    End Sub
End Class