求教一个数字自加后保留自加后的值供下次使用的问题

数据库连接和插入操作代码省略，一下是获取运动员编号的一段代码
 Static n As Integer
        n = n + 1
        Select Case n
            Case Is < 10
                sql = "000"
                TextBox5.Text = sql + CStr(n)
            Case 10 To 99
                sql = "00"
                TextBox5.Text = sql + CStr(n)
            Case 100 To 999
                sql = "0"
                TextBox5.Text = sql + CStr(n)
            Case 1000 To 9999
                sql = ""
                TextBox5.Text = sql + CStr(n)
            Case Else
                n = 0
        End Select
我的问题是，在进行数据录入时，比如第一次运行后，n已经加到了20，那么怎么保留这个20 的值，使得再下一次运行的时候，n从21开始呢