当a=?时,每点击一次Command5这个控件, Label4.Caption就会往上加1呢,请教会的人

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
   Dim a As Double
   a = a + 1
   a = ?
   Label4.Caption = "WS" & a + 1
   Call instore
   MsgBox "新增数据成功！"
   End If
End Sub
如上的程序中,a=?时,每点击一次Command5这个控件, Label4.Caption就会往上加1呢,请教会的人,