>> >>Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load >> 'Put user code to initialize the page here >> >> SqlDataAdapter1.Fill(dsCustomers.Customers) >> >> Dim drCity As DataRow >> Dim iCurrentrow As Integer >> >> drCity = dsCustomers.Tables("Customers").Rows(iCurrentrow) >> >> txtCity.Text = drCity("City") >> txtCountry.Text = drCity("Country") >> txtCompanyName.Text = drCity("CompanyName") >> >> Call DataBind() >> >> End Sub >> >> >> >> Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click >> >> >>' <b><i>The value from txtCity remains at the original entry... </b></i> >> >>''''dsCustomers.Tables("Customers").Rows(0)("City") = txtCity.Text >> >> >>' <b><i>You can delete the quotes and the record value will change - BUT - you have to click the save Button twice! </b></i> >> >> >> ''''dsCustomers.Tables("Customers").Rows(0)("City") = "Tester" >> >> dsCustomers.Tables("Customers").Rows(0)("City") = "Berlin" >> >> SqlDataAdapter1.Update(dsCustomers, "Customers") >> >> End Sub >>End Class >> >> >>>>