Ho utilizzato con successo INSERT INTO su altri database, ma ora non riesco a spiegarmi come mai non funziona su questa istruzione

Dim dbs as DAO.Database
set dbs = CurrentDb

c = [Forms]![Clienti]![Contratto].[Form]![IDContratto]


' duplico il contratto selezionato
dbs.Execute " INSERT INTO Contratti ( IDContratto, DataInizio, DataFine, Cliente, Confermato, NoteContratto ) SELECT Contratti.IDContratto, Contratti.DataInizio, Contratti.DataFine, Contratti.Cliente, Contratti.Confermato, Contratti.NoteContratto FROM Contratti WHERE (((Contratti.IDContratto)=" & c & "));"

la sintassi è corretta, copiando il codice SQL direttamente da una query.
La query funziona il codice no.
Non mi da errori ma non mi copia quello che voglio.
Ho provato allora a far altri INSERT INTO, ma lo stesso database sembra non farne funzionare nessuno. A cosa è dovuto, forse a qualche riferimento errato delle librerie?

Grazie
ElChorro