编号自动生成问题

select max(id) as maxid from 表maxid = rs("maxid")if isnull(maxid) then maxid = rs & date & "0001" 第一次的初始化maxid = right(maxid,4) 取右面的四位maxid = clng(maxid) 变成数值maxid = maxid  + 1 maxid = cstr(maxid) 变成字符select case len(maxid)
  case 1
    maxid = rk & date & "000" & maxid
  case 2
    ...
  case 3
    ...
  case 4
    ...
end select...