Query temporizzata

UPDATE T1 
IN 'D:\Percorso\\DB01.mdb' 
SET 
T1.C1 = "cdex", 
T1.C2 = 12, 
T1.C3 = "juyx"
WHERE 
..... eccetera .....
;

Dim Daox
SET Daox = CreateObject("DAO.DBEngine.36")
' se hai un .accdb penso che devi aggiornare quel  .36

Dim Path 
Path = "D:\TuoPercorso\DB01.mdb"

Dim DBxx
SET DBxx = Daox.OpenDatabase(Path) 

dim StSq
StSq = "UPDATE T1 SET T1.Campo1 = 'cc44' WHERE T1.Id=4;"

DBxx.Execute (StSq),dbFailOnError

DBxx.close
'  Daox.close   'questa riga mi genera un errore
SET DBxx=nothing
SET Daox=nothing

Dim Daox
Set Daox = CreateObject("DAO.DBEngine.120")
' sembra che prima di Access 2002 si usasse   .35
' Access 2002 e 2003 erano al   .36
' oltre il 2003 si usa   120

Dim Path
Path = "C:\User\Administrator\Desktop\45db.accdb"

Dim DBxx
Set DBxx = Daox.OpenDatabase(Path)

DBxx.Execute ("prova"), dbFailOnError

DBxx.Close
'   Daox.Close   'questa riga mi genera un errore
Set DBxx = Nothing
Set Daox = Nothing