Database don't take update

[Rally2000]

Hi all!
I have been pulling my hair out about this; I can’t find the error in the code.
I had identical code that worked just fine in my other exercise and also the book tells me this should work, but yet it doesn’t. Someone please help me with this. I don’t have enough hair to keep pulling it LOL.
Thanks!

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim dsTemp As DataSet1
        Me.BindingContext(DataSet11, "Tb1").EndCurrentEdit()
        If DataSet11.HasChanges() Then
            If MsgBox("Are all Entries Correct?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                dsTemp = CType(DataSet11.GetChanges, DataSet1)
                OleDbDataAdapter1.Update(dsTemp) '<-------------------Problem is here????? What am I missing?
                DataSet11.AcceptChanges()
            Else
                Me.BindingContext(DataSet11, "Tb1").EndCurrentEdit()
                DataSet11.RejectChanges()
 
            End If
        End If
    End Sub

Also, how would I go about making a calculation with the Access Database I’m using?
I have a Text Box “txtBalance” that I would like to use to tell the user what his or her balance is, I was planning on using the Main menu to ad the ability to set a starting Balance.
Sounds easy enough, but I have not come across some Info. On how to do that.
I am interested in your opinion and thoughts in this.
Please help me along.
Thanks!

Sorry but I have another Question!
I thought I knew how to use the clipboard function but found out that I don’t!

So here is my question on that, How do I need to code if there are multiple text boxes??
Again Thanks!!