' button1.click Me.makeds() Me.TextBox1.DataBindings.Add(New Binding("text", ds.Tables("Customers"), "custid")) Me.TextBox2.DataBindings.Add(New Binding("text", ds.Tables("Customers"), "custname")) bmb = Me.BindingContext(ds.Tables("Customers")) ' declared as Private bmb As BindingManagerBase ' end button1.click ' Me.makeds() Public Sub makeds() ds = New DataSet("myDataSet") Dim tCust As DataTable = New DataTable("Customers") ' Create two columns, and add them to the first table. Dim cCustID As DataColumn = New DataColumn("CustID", _ System.Type.GetType("System.Int32")) Dim cCustName As DataColumn = New DataColumn("CustName") tCust.Columns.Add(cCustID) tCust.Columns.Add(cCustName) ' Add the tables to the DataSet. ds.Tables.Add(tCust) Dim newRow1 As DataRow Dim i As Integer For i = 1 To 3 newRow1 = tCust.NewRow newRow1("custID") = i ' Adds the row to the Customers table. tCust.Rows.Add(newRow1) Next ' Give each customer a distinct name. tCust.Rows(0)("custName") = "Alpha" tCust.Rows(1)("custName") = "Beta" tCust.Rows(2)("custName") = "Omega" ds.AcceptChanges() End Sub ' end Me.makeds() ' scroll +1 bmb.Position += 1 ' end scroll +1After I scroll +1 (or -1), that row become "modified" and dataset.haschanges=true