Private Sub AktuallisierenButton_Click(ByVal sender As System.Object, ByVal e _
   As System.EventArgs) _
    Handles AktuallisierenButton.Click
 
        'Abfrage ob Änderungen vorhanden sind
        If Me.Adr2006DataSet.HasChanges() Then
 
            'Progressbar 
            Me.PB1.Step = 2
            ' Berechnung ausführen
            Dim i As Integer
            For i = 1 To 100
                Threading.Thread.Sleep(20)
                Me.PB1.PerformStep()
            Next
 
             Try
 
                Me.Validate()
 
                Me.Tab1BindingSource.EndEdit()
 
                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, _
                "Error!", 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
 
        'ProgressBar wieder auf 0 setzen
        Me.PB1.Value = 0
 
End Sub

VB@rchiv its the Best