Bound controls but no update to db

[salvelinus]

The code below is modified from an example in a book using bound controls in an untyped dataset. two things happen that I don't understand. The first is that the table in the db doesn't get updated. No error thrown, but no update.
The second is is that when I click the Add button, the textboxes clear ok for a new entry. I enter a value in txtQuNum and tab to txtQuestion. But when I do that, the previous value that was just cleared reappears.
The textboxes appear to be bound ok. What's up? Thanks.

Private Sub CreateADOObjects()
        cn.ConnectionString = mstrFullPath
        Try
            Dim cmdQuestion As New OleDbCommand()
            cmdQuestion.Connection = cn
            Dim strQuestionSelect As String
            strQuestionSelect = "SELECT * FROM QS"
            cmdQuestion.CommandText = strQuestionSelect
            daQuestion.SelectCommand = cmdQuestion
 
            Dim cmdModule As New OleDbCommand()
            cmdModule.Connection = cn
            Dim strModuleSelect As String
            strModuleSelect = "SELECT * FROM [Mod List]"
            cmdModule.CommandText = strModuleSelect
            daModule.SelectCommand = cmdModule
 
            Dim cbQuestion As New OleDbCommandBuilder()
            cbQuestion.DataAdapter = daQuestion
            Dim cbModule As New OleDbCommandBuilder()
            cbModule.DataAdapter = daModule
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Creating Objects")
        End Try
    End Sub
 
    Private Sub FillTables()
        Try
            cn.Open()
            dsQuestion.Clear()
            daQuestion.Fill(dsQuestion, "QS")
            dsModule.Clear()
            daModule.Fill(dsModule, "[Mod List]")
        Catch ex As Exception
            MessageBox.Show(ex.Message & Environment.NewLine _ 
               & "Ending Progranm", "Error Retrieving Data", _ 
              MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        Finally
            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If
        End Try
    End Sub
 
    Private Sub BindControls()
        Try
            txtQuestion.DataBindings.Add("Text", dsQuestion.Tables _
              ("QS"), "QText")
            txtQuNum.DataBindings.Add("Text", dsQuestion.Tables _
              ("QS"), "Q#")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Binding Controls")
        End Try
    End Sub
 
    Private Sub GetData()
        Try
            CreateADOObjects()
            FillTables()
            bmbQuestion = Me.BindingContext(dsQuestion, "QS")
            bmbModule = Me.BindingContext(dsModule, "[Mod List]")
            BindControls()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error Getting Data")
        End Try
    End Sub
 
    Private Sub btnAdd_Click(ByVal sender As System.Object,  _
        ByVal e As System.EventArgs) Handles btnAdd.Click
        Try
            bmbQuestion.AddNew()
            txtQuNum.Clear()
            txtQuestion.Clear()
            txtQuNum.Focus()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error Adding Record")
        End Try
    End Sub
 
    Private Sub UpdateDB()
        Try
            daQuestion.Update(dsQuestion.Tables("QS"))
            bmbQuestion.EndCurrentEdit()
            dsQuestion.Clear()
            daQuestion.Fill(dsQuestion, "QS")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error Updating Database")
        End Try
    End Sub
 
    Private Sub btnSave_Click(ByVal sender As System.Object, _ 
        ByVal e As System.EventArgs) Handles btnSave.Click
        UpdateDB()
    End Sub