Forum Moderators: open
Any help will be very gratefully received.
TIA
Jan.
Dim dtVar
Dim lngID
While not rs.EOF
lngID = rs.Fields("ID")
dtVar = FormatDateTime(rs.field("yourdatefield"), vbShortDate)
sql = "UPDATE TABLE SET DateField = '" & dtVar & "' where IdentityColumn = " & lngID
dbConnection.Execute sql
rs.movenext
Loop
In my case, I believe it was specifically the short date format which caused the problem. I don't remember right off hand, but I believe I changed the format from M/d/yyyy to MM/dd/yyyy. This was done on the server through the regional options applet in the control panel.