有哪位高手帮我详细解释一下这段代码

Option Compare Database
Public js
Private Sub Command1_Click()
Dim qq1
qq1 = 0
If (Not IsNull(Tx1.Value)) Then
 qq1 = dl(Tx1, Tx2) '调用登录函数
 If qq1 > 0 Then
  MsgBox ("欢迎您：" & Q_XingMing)
  DoCmd.Close acForm, "更换用户"
  DoCmd.OpenForm "主控窗体"
 Else
  js = js + 1
  If js > 3 Then
   MsgBox "帐号或密码连续不正确，退出系统"
   Quit acQuitSaveAll ' 关闭系统并保存所有信息
  Else
    MsgBox "帐号或密码不正确，不能进入系统"
  End If
 End If
 Else
  MsgBox "帐号为空，不能进入系统"
End If
End Sub
Private Sub Form_Load()
 DoCmd.Restore
 js = 0
 Me.Caption = "用户登录"
End Sub