Binding Manager & dataset - won't add record

[salvelinus]

I've got an untyped dataset with controls bound through code. The user can select a question number from a bound combobox, and the question number and question text are displayed in bound textboxes. This part works fine.
When I go to add a new record, the textboxes clear as they should. I enter a new question number and tab to the textbox for the question text. At this point, the text for the previously selected question (whose number is still displayed in the combobox) reappears. If I then change the text anyway and try to save, it tries to update the previously selected record instead of adding a new one. I think it has something to do with the position of the datset not being changed, although the bindingmanagerbase position is. This code is almost directly from chapter 6 in Murach's book, VB.Net database programming with ado.net. Thanks for any help.

Private Sub BindControls() 
        Try 
            txtQuestion.DataBindings.Add("Text", dsQuestion.Tables _
            ("QS"), "QText") 
            txtQuNum.DataBindings.Add("Text", dsQuestion.Tables _
            ("QS"), "Q#") 
            cboQuNum.DataSource = dsQuestion.Tables("QS") 
            cboQuNum.DisplayMember = "Q#" 
        Catch ex As Exception 
            MessageBox.Show(ex.Message, "Binding Controls") 
        End Try 
    End Sub 
 
    Private Sub btnAdd_Click(ByVal sender As System.Object, _ 
          ByVal e As System.EventArgs) Handles btnAdd.Click 
        Try 
            bmbQuestion.AddNew() 
            SetButtons(False) 
            btnSave.Enabled = False 
            blnNewRow = True
            txtQuestion.Clear() 
            txtQuNum.Clear() 
            txtQuNum.Focus() 
        Catch ex As Exception 
            MessageBox.Show(ex.Message, "Error Adding Record") 
        End Try 
    End Sub 
 
    Private Sub cboQuNum_SelectedIndexChanged(ByVal sender As System.Object,  _
          ByVal e As System.EventArgs) Handles cboQuNum.SelectedIndexChanged 
        If Not blnLoading Then 
            bmbQuestion.Position = cboQuNum.SelectedIndex 
            SetButtons(True) 
            btnSave.Enabled = dsQuestion.HasChanges 
            txtQuNum.Focus() 
        End If 
    End Sub