Private Sub SpeichernButton_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
    Handles SpeichernButton.Click
 
        Me.DataGridView1.ReadOnly = False
 
         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)
 
            'Daten auffrischen
            RefreshData()
 
            'Meldung
            MessageBox.Show("Daten erfolgreich gespeichert!", "Info!", _
            MessageBoxButtons.OK, MessageBoxIcon.Information)
 
       Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error!", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
      Me.DataGridView1.ReadOnly = True
 
       'Positionsanzeige
        Pos()
        'Postionsanzeige Statusbar
        TSSLPos()
 
End Sub

VB@rchiv its the Best