Private Sub Änderung()
 
'Manuelle Datenbindung
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 (@Text)"
 Dim com As New OleDbCommand(strSQL, con)
 com.Parameters.Add(New OleDbParameter("@Text", OleDbType.DBTimeStamp))
 
        Try
            con.Open()
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
 
 End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer4.Tick
        'Erstellung
        Me.ErstellungLabel1.Text = DateTime.Now.Date & " " & _
          DateTime.Now.ToLongTimeString
        'Änderung
        Me.ÄnderungLabel1.Text = DateTime.Now.Date & " " & _
          DateTime.Now.ToLongTimeString
    End Sub

VB@rchiv its the Best