最大号怎么没办法再增大！

Question

用如下代码增加号码的值，可是到了9999号再增加1却不会再增加，不知道为什么？ On Error Resume Next
  Call mydovro
  SQL = "select max(bh)+1 as 最大号 from ylrkd "
  RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
  Range("h6") = RST.Fields("最大号")
  Set RST = Nothing
  CNN.Close谢谢！

Answer 1

用如下代码增加号码的值，可是到了9999号再增加1却不会再增加，不知道为什么？
这话错了，应该是增加到10000后再增加，还是10000，而没有出现理想中的10001，不知道为什么？

Answer 2

这里贴的代码没有对数据库数据进行更新吧
请查证数据库设计， 是否最大4位呢？