一个子程序问题？？在线等

Private Sub admg()
Dim sql As String
   If List1.Text = "administrator" Then
   If Check1.Value = 1 Then adm(1) = "a" Else adm(1) = ""
   If Check2.Value = 1 Then adm(2) = "b" Else adm(2) = ""
   If Check3.Value = 1 Then adm(3) = "c" Else adm(3) = ""
   If Check4.Value = 1 Then adm(4) = "d" Else adm(4) = ""
   If Check5.Value = 1 Then adm(5) = "e" Else adm(5) = ""
   If Check6.Value = 1 Then adm(6) = "f" Else adm(6) = ""
   If Check7.Value = 1 Then adm(7) = "g" Else adm(7) = ""
adm(8) = adm(1) & adm(2) & adm(3) & adm(4) & adm(5) & adm(6) & adm(7)
admz = True
End If
End Sub
为什么每次加载窗体的时候这些子程序就会执行啊？？
怎么使得这些子程序在调用的时候执行没有调用的时候不执行啊？？正确就给分。