Private Sub AktuallisierenButton_Click(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) _
    Handles AktuallisierenButton.Click
 
         If Me.Adr2006DataSet.HasChanges() Then
 
             Try
                'Fokus des Steuerelements überprüfen, das verloren geht
                Me.Validate()
                'aktuellen Bearbeitungsvorgang beenden
                Me.Tab1BindingSource.EndEdit()
                'Daten update
                Me.Tab1TableAdapter.Update(Me.Adr2006DataSet.Tab1)
 
                MessageBox.Show("Daten erfolgreich geändert!", "Info!", _
                MessageBoxButtons.OK, MessageBoxIcon.Information)
 
               Catch ex As Exception
               MessageBox.Show("Fehler beim Update!" & ex.Message.ToString, _
                "Info!", MessageBoxButtons.OK, MessageBoxIcon.Error)
             End Try
 
 Else
 
            MessageBox.Show("Keine Änderungen vorhanden!" _
            + vbCrLf & "Daten werden ohne Änderungen übernommen!", _
            "Info!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
 
End Sub

VB@rchiv its the Best