Non so se funziona, ma puoi provare questo:

SQL = "INSERT INTO tabella (SELECT TOP 1 '" & NuovoValore & "', Testo, Dove FROM tabella WHERE Titolo = '" & Valore & "')"
conn.execute(SQL)


Al posto di valore metti il titolo da duplicare e al posto di NuovoValore metti il nuovo titolo