Adicionar y eliminar datos con un databindings Visual Basic .Net

[skyz]

Estoy aprendiendo el manejo de databindings ya me jala las tuplas de la base de datos lo que no puedo hacer es cuando adiciono valores (filas), me actualice en la vista (me actualice en el formulario), ni tampoco en la eliminacion.

Tengo esto hasta el momento, es el boton de adicionar:

Código:

'Boton para registrar los datos del usuario
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Manejando el combobox

        If ComboBox1.SelectedItem = "Masculino" Then
            valorcombo = ComboBox1.SelectedItem(0)
        End If

        If ComboBox1.SelectedItem = "Femenino" Then
            valorcombo = ComboBox1.SelectedItem(0)
        End If

        'Ambientes desconectados con datarow

        'Cadena Sql
        Dim cadenasql As String = "SELECT * FROM Empleado"

        'Dim Comando As New SqlCommand(cadenasql, Objconexion)

        Dim Comando As SqlCommand
        Comando = New SqlCommand(cadenasql, Objconexion)
        Objconexion.Open()
        adaptador.InsertCommand = Comando 'coloco la conexion, con la cadena sql y el objeto de conexion, el SelectCommand referencia a un comando (instrucción SQL o nombre de procedimiento almacenado) que recupera filas del almacén de datos.
        Dim ds As New DataSet() 'creando conjunto de tablas virtuales dataset
        adaptador.Fill(ds, "ListEmp") '(tabla virtual dataset, Le damos un alias a la tabla con la cual trabajaremos)
        Objconexion.Close()
        Dim dr As DataRow

        'adicionando un datarow (fila virtual), a un dataset

        dr = ds.Tables("ListEmp").NewRow()
        dr("NOMBRE") = TextBox1.Text
        dr("INIC") = TextBox2.Text
        dr("APELLIDO") = TextBox3.Text
        dr("CI") = TextBox4.Text
        dr("NSS") = TextBox5.Text
        dr("FECHAN") = DateTimePicker1.Value.Date
        dr("DIRECCION") = TextBox6.Text
        dr("SEXO") = valorcombo
        dr("SALARIO") = TextBox7.Text
        dr("NSSSUPER") = TextBox8.Text
        dr("ND") = NumericUpDown1.Value

        ds.Tables("ListEmp").Rows.Add(dr)

        MsgBox("datos adicioados..." & BmBase.Count)
        'Borramos lo que contienen los controles del databinding

        TextBox1.DataBindings.Clear()   'Borramos el valor que tiene el textbox, introducido por el databinding
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        DateTimePicker1.DataBindings.Clear()
        TextBox6.DataBindings.Clear()
        ComboBox1.DataBindings.Clear()
        TextBox7.DataBindings.Clear()
        TextBox8.DataBindings.Clear()
        NumericUpDown1.DataBindings.Clear()


        TextBox1.DataBindings.Add("Text", ds, "ListEmp.NOMBRE")
        TextBox2.DataBindings.Add("Text", ds, "ListEmp.INIC")
        TextBox3.DataBindings.Add("Text", ds, "ListEmp.APELLIDO")
        TextBox4.DataBindings.Add("Text", ds, "ListEmp.CI")
        TextBox5.DataBindings.Add("Text", ds, "ListEmp.NSS")
        DateTimePicker1.DataBindings.Add("Text", ds, "ListEmp.FECHAN")
        TextBox6.DataBindings.Add("Text", ds, "ListEmp.DIRECCION")
        ComboBox1.DataBindings.Add("Text", ds, "ListEmp.SEXO")
        TextBox7.DataBindings.Add("Text", ds, "ListEmp.SALARIO")
        TextBox8.DataBindings.Add("Text", ds, "ListEmp.NSSSUPER")
        NumericUpDown1.DataBindings.Add("Text", ds, "ListEmp.ND")

        BmBase = Me.BindingContext(ds, "ListEmp")

End Sub

Una ayudita

[skyz]

Ya puedo modificar y eliminar los valores virtuales del dataset y me refleja en el bindings, pero no puedo adicionar todavia, no me refleja correctamente con el binding, me sobreescribe la informacion cuando la adiciono