Dear Admin,
Private Sub NewPasswordTextBox_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewPasswordTextBox.Enter OleDbConnection1.Open() cb = New OleDbCommand("select * from Administrator", OleDbConnection1) dr = cb.ExecuteReader() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If OldPasswordTextBox.Text.Equals(NewPasswordTextBox.Text) Then If OldPassword.Text.Equals("Old Password") Then While dr.Read If Username2TextBox.Text.Equals(dr("UserName").ToString) Then Dim dt As DataTable = ds.Tables("Administrator") dt.Rows(0)("Password") = NewPasswordTextBox.Text End If End While ElseIf OldPassword.Text.Equals("Password") Then Dim dt As DataTable = ds.Tables("Administrator") Dim dr = dt.NewRow Dim bm = Me.BindingContext(dt) dr.Item("UserName") = Username2TextBox.Text dr.Item("Password") = NewPasswordTextBox.Text OleDbDataAdapter1.Fill(ds, "Administrator") dt = ds.Tables("Administrator") dt.Rows.Add(dr) dt.AcceptChanges() OleDbDataAdapter1.Update(dt) End If End If OleDbConnection1.Close() End Sub <vb>