Il campo data potrebbe dare dei problemi.
Prova a scrivere nella riga
update dati set DATA_REG= ? , NOME_CENTRO='"&..............

e subito sotto gli passi il dato attravero il parametro che è definito come data

set objPrm=objCmd.CreateParameter("dta", adDBTimeStamp,adParamInput)
if isnull(DATA_REG) or trim(DATA_REG)="" then
objPrm.Value=Null
else
objPrm.Value=DATA_REG
end if
objCmd.Parameters.Append objPrm

Ciao