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

Private Sub Änderung()
 
Me.ÄnderungLabel1.DataBindings.Add("Text", Me.Tab1BindingSource, "Änderung", _
  True)
 
 Dim con As New OleDbConnection
 'Connection string
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=Adr2006.mdb; Mode=ReadWrite;Persist Security Info=false"
  'Sql String
 Dim strSQL As String = "INSERT INTO Tab1 (Änderung) VALUES (@Datum)"
 
 Dim com As New OleDbCommand(strSQL, con)
 com.Parameters.Add(New OleDbParameter("@Datum", OleDbType.DBDate))
 com.Parameters("@Datum").Value = DateTime.Now
 
        Try
            con.Open()
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
 
    End Sub

VB@rchiv its the Best