这个是数据库自带的功能啊，设置字段类型为自动编号就行了。在保存数据的时候这个字段不用赋值，也不用出现在Insert语句里。
站在用户的角度思考问题，与客户深入沟通，找到镇远网站设计与镇远网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、做网站、企业官网、英文网站、手机端网站、网站推广、申请域名、雅安服务器托管、企业邮箱。业务覆盖镇远地区。
一般设计数据库的时候自动编号是自增的，所以新插入的编号是最大的编号
你可以用
select max(id) from table
来获取这个编号
改成下面这样：
Dim cmdtext As String = "Update 用户信息表 Set 密码='" txt密码new.Text "',用户='" txt用户名.Text "' Where ID=" Int(Val(UserID))