求助，怎么做一个序号的代码

pony1234567890

序号           输入值
1--3                       3
4--6                       3
7--11                     5
12--22                   11
22--23                    1

以上面的方式来做一个序号，要怎么写代码，之前一个朋友给我写了一个代码，可是没解释，对于我这个新人来说有点难，他写的是点击一次增加4个数的序号，代码如下

Dim con As New ADODB.Connection
Set con = CurrentProject.Connection
Dim rs As New ADODB.Recordset
Dim mysql As String
mysql = "select * from 表4 order by ID desc"
rs.Open mysql, con, 3, 3
Dim NumberColStr As String, IDstr As Long
If rs.RecordCount < 1 Then
    NumberColStr = FullNumber(4, "0--0")
Else
    NumberColStr = FullNumber(4, rs!Number)
    IDstr = Val(rs!id) + 1
End If
Set rs = Nothing

mysql = "insert into 表4 values(" & IDstr & ",'" & NumberColStr & "', '11','11',4)"
con.Execute mysql
Set con = Nothing


如果有明白的朋友可以帮我写一短代码，或逐行给我解释一下我朋友给我的这部分代码，谢谢了！！

roych

稍稍解释下（逐行就没这个必要了）：
'定义ADO链接，并设置为当前工程（即当前Access数据库）的链接
Dim con As New ADODB.Connection
Set con = CurrentProject.Connection
'定义记录集和打开记录集的SQL语句。
Dim rs As New ADODB.Recordset
Dim mysql As String
'此SQL语句表示提取表4的全部字段，并按ID升序排序。
mysql = "select * from 表4 order by ID desc"
'打开记录集，至于里面的参数，暂不解释。逐一解释可以单独发个帖子。
rs.Open mysql, con, 3, 3
Dim NumberColStr As String, IDstr As Long
'如果没有记录，NumberColStr 将返回FullNumber(4, "0--0")，否则返回否则返回FullNumber(4, rs!Number)。
rs!Number表示前面的记录集（即表4）的Number字段内容。
注意FullNumber为自定义函数，具体使用该看该函数过程。
If rs.RecordCount < 1 Then
    NumberColStr = FullNumber(4, "0--0")
Else
    NumberColStr = FullNumber(4, rs!Number)
    把id的内容加上1赋值给IDstr。
    IDstr = Val(rs!id) + 1
End If
'清空记录集，释放内存。不过，貌似漏了一句rs.Close。
Set rs = Nothing
向表4中的五个字段分别追加IDstr、 NumberColStr和11,11和4。
mysql = "insert into 表4 values(" & IDstr & ",'" & NumberColStr & "', '11','11',4)"
con.Execute mysql
'清空数据连接，释放内存，同样地似乎少了一句con.Close。
Set con = Nothing
'在我的印象中，似乎这两句Close是必须要有的，否则将无法执行set =Nothing的操作。