I am not sure if that could be the problem:
.Rows(x).Item("date2") = .Rows(x).Item("date1")
.Rows(x).Item("date1") = Now
You try to update
date2
with the value of
date1
and at the same time to set
date1
to
Now
. The query generator could run into troubles.
I'd add a temporary variable, e.g.
Dim tmp as DateTime = .Rows(x).Item("date1")
.Rows(x).Item("date2") = tmp
.Rows(x).Item("date1") = Now