Autonumérico personalizado

Bien, para eso es fácil.
Create primero un campo que se llame aux numérico. Que usaremos como auxiliar para hacer eso.
Luego, create en el formulario un textbox para ese aux. Y dos textbos más, uno que se llame cuenta (origen de datos =Cuenta([aux]) ) y otro que se llame max (origen de datos =Máx([Cuenta]) )
El código para generar tu valor correlativo seria:
Dim a as String
If isnull(nombredeltextboxdetucampoclave.Value) then
     If cuenta.Value = 0 then
          nombredeltextboxdetucampoclave.Value = "AVD001"
     else
          a = Max.Value+1
          if max.value>9 then
               if max.value>99 then
                    nombredeltextboxdetucampoclave.Value = "AVD" & a
               else
                    nombredeltextboxdetucampoclave.Value = "AVD0" & a
               end if
          else         
               nombredeltextboxdetucampoclave.Value = "AVD00" & a
          end if
     end if
end if
Este código deberías ponerlo en el procedimiento del evento "al perder enfoque" de algún textbox que tenga que ser rellenado a la fuerza