Private Sub AktuallisierenButton_Click(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) _
    Handles AktuallisierenButton.Click
 
        Me.BindingContext(Me.Tab1BindingSource).EndCurrentEdit()
 
        '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()
 
                'Daten update
                Me.Tab1TableAdapter.Update(Me.Adr2006DataSet.Tab1)
                'Meldung
                MessageBox.Show("Daten erfolgreich geändert!", "Info!", _
                MessageBoxButtons.OK, MessageBoxIcon.Information)
 
               Catch ex As Exception
                'Meldung
                MessageBox.Show("Fehler beim Update!" & ex.Message.ToString, _
                "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Else
 
            'Meldung
            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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
    Handles MyBase.Load
 
        Try
            Me.Tab1TableAdapter.Fill(Me.Adr2006DataSet.Tab1)
           Catch ex As Exception
            MsgBox(ex.ToString())
            Return
        End Try
 
        'Änderungsschutz
        Me.DataGridView1.ReadOnly = True
 
End Sub

VB@rchiv its the Best