实现表格向下移动

Question

在form_load中定义了
  DIM  I AS INTERGER
  I=0
然后在函数中  
    Grid3.Row = i
    Grid3.TextMatrix(Grid3.Row, 0) = "" & RS!seq
    Grid3.TextMatrix(Grid3.Row, 1) = "" & RS!stdt
    Grid3.TextMatrix(Grid3.Row, 2) = "" & RS!endt
    Grid3.TextMatrix(Grid3.Row, 3) = "" & RS!grade
    Grid3.TextMatrix(Grid3.Row, 4) = "" & RS!school
    Grid3.TextMatrix(Grid3.Row, 5) = "" & RS!jieye
    Grid3.TextMatrix(Grid3.Row, 6) = "" & RS!Major
    i=i+1
   但是在保存完一条记录时，
   再保存一条记录，即在表格中把上一条记录覆盖。
  估计是因为每次点击保存，都会重新把i置位0
请问如何做到i在保存后值仍然是上一次的值
比如说保存完后i自加变成了1
希望再点击是仍然是1
这样就会在表格下一行保存了高手指点

Answer 1

比如说：
我有一个grid，我希望我每次保存完了的数据会保存在这个grid的一行里，
然后我再保存的时候，我希望grid向下移动一行，然后数据在保存在这一行，
但是我现在用的是定义一个整形i
在module中定义i的初始值为0
i=0
然后定义
    Grid3.Row = i
    就指向了grid的某一行
    再把值覆到这一行
    Grid3.TextMatrix(Grid3.Row, 0) = "" & RS!seq
但是这样呢，
我再次保存的时候，数据会把上一行的纪录覆盖掉，而不是我预想的保存在上一行的下一条里，
因为每次保存的时候，i都回重新被覆给零值，
于是又从零开始了，
现在有什么方法能让i不会每次都从零开始，而是接着上次保存过的纪录