自动编号好像没这个功能柳~
用程式吧...
若前三码是固定的，就先抓出前三码
在转数值，取最後一码在加一..

sql="select * from tt where mid(id,1,1)=’J’"
set rs =conn.execute(sql)
if rs.eof then
id1="J00000001"
else
do while not rs.eof
id=id+1
rs.movenext
loop
id=id+1
for i=1to(8-clng(len(id)))
insect_id="0" & id
next
id1="J" & id
end if