Private Sub Änderung()
 
Me.AenderungLabel1.DataBindings.Add("Text", Me.Tab1BindingSource, "Aenderung", _
  True)
 
Dim con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=Adr2006.mdb; Mode=ReadWrite;Persist Security Info=false"
 'Sql String
Dim strSQL As String = "UPDATE Tab1 SET Aenderung = @Aenderung WHERE Aenderung" & _
  "= @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