access类模块问题

首先我在excel里定义了一个my类模块

Public WithEvents cmd As CommandButton

Private Sub cmd_Click()
MsgBox cmd.Caption
End Sub

然后

Dim co As New Collection

Private Sub UserForm_Initialize()
Dim ctl As Control
Dim myc As my
For Each ctl In Me.Controls
    If TypeOf ctl Is CommandButton Then
        Set myc = New my
        Set myc.cmd = ctl
        co.Add myc
    End If
Next
End Sub

这个能正常运行

我以同样的方法在acc里定义一个person类模块，在窗体的load事件里

Dim co As New Collection

private Sub Form_Load()
Dim co As New Collection
Dim ctl As Control
Dim myc As person
For Each ctl In Me.Controls
    If TypeOf ctl Is CommandButton Then
        Set myc = New person
        Set myc.cmd = ctl
        co.Add myc
    End If
Next
End Sub

然后点击窗体上的命令按钮 没有反应 ，也不报错。有谁能告诉一下原因吗

在此谢谢了