Visual Basic - Crear campo autonumérico

Hola gente del foro.
¿Como puedo crear un campo autonumérico para Access con DAO?
Tipo de campo también conocido como campo contador.
¡Muchas gracias por su ayuda!

Fijate con:

Set Fd = tDef.CreateField("ID", dbLong)
Fd.Attributes = dbAutoIncrField
tDef.Fields.Append Fd

En http://www.gab2001uk.com/visualbasic/sampledatabase/ hay un ejemplo completo para descargar.