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

[Dman]

I am having nearly the same thing happen. I have bound text boxes on two tabs of a tab control. When I click a check box on one tab it should populate the text boxes on both tabs with pre-determined values. It does this for the text box on the tab that currently has focus, however, when I switch to the other tab it still contains the old value. Also, when I switch back to the other tab it has also reverted back to the old value. Did you (or anyone) have a solution for this?

[salvelinus]

My problem was the Access field names. I had to set the QuotePrefix and QuoteSuffix properties to "[" and "]" so that Access didn't have a problem updating. Answer here if I got the right link.

[Dman]

I found the answer to my problem. What I needed to do was add:

Me.BindingContext(MyDataset, "MyTable").EndCurrentEdit()

after I inserted the value into the textbox.

[siomai]

hey dman! you solved my problem too!

Thanks a lot! been trying to solve that for weeks now...haha!

Take care!