AutoNumber

'Esempio DAO

'First Open a updateable recordset

Set rs = db.OpenRecordset("MiaTabella")
With rs
'Aggiungi nuovo Record

.AddNew
!Field2 = "Dati per il nuovo Record"
'Aggiorna il Database

.Update
'Conserva nel bookmark l'ultima modified

.Bookmark = .LastModified
lngResult = rs!AutoNumberUID
End With
rs.Close
'Esempio Ado

Set mrsMDB = New ADODB.Recordset
mrsMDB.CursorType = adOpenKeyset
mrsMDB.LockType = adLockOptimistic
mrsMDB.Open "MiaTabella", mcnnMDB, , , adCmdTable
With mrsMDB
.AddNew
!Field2 = "Aggiunge Dati nel Record"
.Update
varBkMark = .Bookmark
.Requery
.Bookmark = varBkMark
lngNewUID = !AutoNumberUID
End With
Questi esempi riguardano codice ADO e DAO