Questo e' un metodo alternativo:
codice:
' creo un codice ragionevolmente univoco
Randomize : temporaneo = CStr(Timer() + Rnd())
myConnection.execute "insert into Tabella (CampoTesto) values ('" & temporaneo & "')"
' leggo il contatore assegnato
set rs = myConnection.execute("select CampoId from Tabella where CampoTesto = '" & temporaneo & "'")
IdAssegnato = rs("CampoId")
' modifico il record appena creato con i valori reali
....
' uso l'ID trovato
...