Option Compare Database  
Sub SubMsgBox(FormName As String)
    MsgBox "请输入用户名！", vbOKOnly + vbInformation, "提示"
End Sub


Private Sub 例8_16_Click()//触发按钮的点击事件
Call SubMsgBox("登录")



求注释下这些语句的意思

Option Compare Database  
Sub SubMsgBox(FormName As String)
    MsgBox "请输入用户名！", vbOKOnly + vbInformation, "提示"
End Sub


Private Sub 例8_16_Click()//触发按钮的点击事件
Call SubMsgBox("登录")



求注释下这些语句的意思