Grazie per l'aiuto Brainjar,
nel frattempo ho risolto così:

OggC.CommandText = "UPDATE TblAnagraficaPROF Set Cicli=('" & (btCicli1) & "') WHERE NomeFile=('" & FrmAA.NomeNF & "')"
OggC.Execute

mi sembra che la query sia uguale alla tua.
Ciao e grazie!