Problemas con TableAdapter.Update

[piskui]

yo para el boton borrar uso el siguiente codigo, puedes probarlo a ver si te funciona, aunque ya sabes que ami no me lo guarda en la BD, pero si lo pruebas y te funciona sabremos que el codigo al menos esta bien jeje

Private Sub btBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBorrar.Click
Dim var As DataSet.tutablaRow
var = Me.DataSet.tutabla.FindByEmployee_ID(id fila a borrar o textbox en tu caso)
var.Delete()
'lo siguiente lo puse tras tu consejo, sin ello tb funciona, lo que esta en rojo.

Me.DataSet.Tables("Tutabla").AcceptChanges()
Me.DataSet.Tables("Tutabla").BeginInit()
Me.DataSet.Tables("Tutabla").Rows(posicion).BeginE dit()
Me.NorthwindDataSet.Tables("Tutabla").Rows.RemoveA t(posicion)

Me.EmployeesTableAdapter.Update(Me.DataSet.Tutabla )

Espero te que te sirva. un saludo!