Private Sub Änderung()
 
Dim drv As DataRowView = DirectCast(Tab1BindingSource.Current, DataRowView)
Dim AktId As Integer = CInt(drv("ID"))
Dim RowNum As Integer = Tab1BindingSource.Find("ID", AktId)
 
Me.AenderungLabel1.DataBindings.Add("Text", Tab1BindingSource, "Aenderung", _
  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 = "UPDATE Tab1 SET Aenderung = @p1 WHERE ID =@p2" 
 
Dim com As New OleDbCommand(strSQL, con)
com.Parameters.Add(New OleDbParameter("@p1", OleDbType.DBDate))
com.Parameters.Add(New OleDbParameter("@p2", OleDbType.Integer))
com.Parameters("@p1").Value = DateTime.Now
com.Parameters("@p2").Value = RowNum
 
        Try
            con.Open()
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

VB@rchiv its the Best