[5分]这事件怎么写，求助

高手轻风已帮我解决，谢谢

Option Compare Database
 

Private Function Ctl_Click(CtlCaption As String)
 
    DoCmd.OpenForm "房号信息", , , "房号='" & CtlCaption & "'"
 
End Function
 

Private Sub Form_Load()
 
    For Each ctl In Me.Controls
 
        If ctl.ControlType = acLabel Then ctl.OnClick = "=ctl_Click('" & ctl.Caption & "')"
 
    Next
 
End Sub