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 (@DateTime.Now)"
 Dim com As New OleDbCommand(strSQL, con)
com.Parameters.Add(New OleDbParameter("@Text", OleDbType.DBDate))
 
    Try
        con.Open()
        com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
    End Try
 
    End Sub

VB@rchiv its the Best