为什么每次打开这个程序,图号总是从WS1000001开始的,而不是从上次已经保存的数据上叠加呢

如下程序,为什么每次打开这个程序,图号总是从WS1000001开始的,而不是从上次已经保存的数据上叠加呢
Private Sub Command5_Click()

If checkdata = True Then

   rs.AddNew

   rs.Fields("drawingnumber") = Trim(Label4.Caption)

   rs.Fields("description") = Trim(Text2.Text)

   rs.Fields("version") = Trim(Text3.Text)

   rs.Update

   Static a As Double

   a = a + 1

   Label4.Caption = "WS" & 1000000 + a

   Call instore

   MsgBox "新增数据成功！"

End If

End Sub