This is really wierd, and probably simple, but I can't get my counter to add more than once. It's simple code

Private Sub Form_Load()
Dim countnum As Integer
countnum = 0
End Sub

Private Sub cmdadd1_Click()
countnum = countnum + 1
lblcount.Caption = countnum
End Sub

my form is simply a command button (cmdadd1) and a label (lblcount). It works once, when I click on cmdadd1, but only once, regardless of how many times I click after that.
I'll feel stupid when you tell me whats wrong, but I already feel stupid for not being able to figure it out on my own.