Need help with a databound form and Dataset: Urgent!!

Here's a little demo.  Fairly rudimentary, but it illustrates the main points.  The form has the following controls on it

txtName
txtAddress
btnBack
btnForward
btnNew
btnDelete
lblPosition

The database table, "Customers", has three fields in it

CustomerID - an AutoNumber Primary Key - otherwise the commandbuilder won't work
Name
Address

And here's the code

    Private con As OleDbConnection
    Private da As OleDb.OleDbDataAdapter
    Private ds As New DataSet
    Private WithEvents mbmCustomers As BindingManagerBase


    Private Sub TextBoxDataBase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = getConnection()
        Dim sql As String = "SELECT * FROM Customers"
        da = New OleDbDataAdapter(sql, con)
        da.Fill(ds)
        Dim cb As New OleDbCommandBuilder(da)
        BindControls()
    End Sub

    Private Sub BindControls()
        txtName.DataBindings.Add("Text", ds.Tables(0), "Name")
        txtAddress.DataBindings.Add("Text", ds.Tables(0), "Address")
        mbmCustomers = BindingContext(ds.Tables(0))
        lblPosition.Text = mbmCustomers.Position + 1 & " of " & mbmCustomers.Count & " records"
    End Sub

    Private Sub mbmCustomers_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mbmCustomers.PositionChanged
        lblPosition.Text = mbmCustomers.Position + 1 & " of " & mbmCustomers.Count & " records"
    End Sub

    Private Sub btnBack_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBack.Click
        mbmCustomers.Position -= 1
    End Sub

    Private Sub btnForward_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnForward.Click
        mbmCustomers.Position += 1
    End Sub

    Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
        Dim dr As DataRow = ds.Tables(0).NewRow
        ds.Tables(0).Rows.Add(dr)
        mbmCustomers.Position = mbmCustomers.Count - 1
        lblPosition.Text &= " [NEW]"
        txtName.Focus()
    End Sub

    Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim iResult As MsgBoxResult = MsgBox("Deleting this Customer will remove all related Addresses and Parts!" & vbCrLf & "Are You Sure?", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Delete Customer")
        If iResult = MsgBoxResult.Yes Then
            ds.Tables(0).Rows(mbmCustomers.Position).Delete()
        End If
        btnBack_Click(Nothing, Nothing)
    End Sub

    Private Sub TextBoxDataBase_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        mbmCustomers.EndCurrentEdit()
        If ds.HasChanges Then
            Dim iResult As MsgBoxResult = MsgBox("Changes have been made to the data!" & vbCrLf & "Do you wish to save them?", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Changed data")
            If iResult = MsgBoxResult.Yes Then
                da.Update(ds)
            End If
        End If
    End Sub

As to what you were doing wrong, I can't be sure, but I imagine that it involved not changing the .Position of mbmCustomers.

Roger

Thanks!  Understand it a bit better now!

Wish there was better documentation in VS for the Binding Manager since it seems so necesary to databinding in .net w/o a datagrid

Thanks again