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呢,请教会的人,

好像以上的代码都不行吧，由于每次点击command5时，a都会被dim重新定义一次，定义后的初值是0，需要将a声明为静态变量才行，用static进行变量声明吧