VB里面如何用代码自动累加

[yuanyuanaa]

我这边是用VB加ACCESS制作了一个软件，里面编号字段没有用自动累加，我想用代码来进行编号码自动累加。请问如何用代码来
进行操作，添加一个字段编号自动添加1，

[东方之珠]

设计一个变量NoID，每增加一个字段加一：NoID=NoID+1

[cycszsz]

就在窗体的单击事件里加上1楼的那句话。