Private cm As CurrencyManager

cm = CType(Me.BindingContext(dv), CurrencyManager)

Private Sub butÄndern_Click(ByVal sender As _ 
 System.Object, ByVal e As System.EventArgs) Handles _ 
 butÄndern.Click 
 
cm.EndCurrentEdit()
 
 If objDataSet.HasChanges Then
 
 Try
 
 Dim m As Integer = OleDbDataAdapter1.Update(objDataSet, "t_Kunden")
objDataAdapter.Update(objDataSet, "t_Kunden") 
 
 Catch ex As Exception
     MessageBox.Show(ex.Message.ToString, _
     "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
 End Try
 
  Else
MessageBox.Show("Keine Änderungen vorhanden!", _
"Änderungen übernehmen", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
 End If
 
 End Sub

VB@rchiv its the Best