出错应该在这里 idx = CInt(max.Substring(ld1.Length + ld2.Length,8)) + 1 '获得最大编号的后四位顺序号,并加1
确认客户数据库的这个字段返回值的长度足够