谁能帮我解释一段VB6.0的原代码

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
'定义了一个函数，调用一个动态联接库文件，具体是什么，还在看从哪里弄来的代码

Public OK As Boolean
‘定义一个布尔常量
Private Sub cmdCancel_Click()
定义一个按钮的单击事件
OK = False
’当这个事件发生时将其付为假
Me.Hide
‘隐藏本窗口，ME代表自身，也可以将其省略
End Sub

Private Sub cmdOK_Click()
'ToDo: create test for correct password
'check for correct password
’以上是注示
Dim txtSQL As String
Dim mrc As ADODB.Recordset
‘定义一个记录集常量
Dim MsgText As String
'ToDo: create test for correct password
'check for correct password

UserName = ""
If Trim(txtUserName.Text = "") Then
’txtUserName是一个文本框，判断是不是为空，去除内部的空格
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
’定义一个信息提示框，上面只有一个确定按钮，还有一个感叹号
txtUserName.SetFocus
‘将光标放在文本框中
Else
txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
定义SQL语句进行查询
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
’如果查询结果为真，则。。
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text)Then
‘在判断密码输入是否正确
OK = True
mrc.Close
’关闭记录集
Me.Hide
UserName = Trim(txtUserName.Text)
‘将文本框中内容付于变量
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
’置为空
End If
End If
End If

miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
End Sub
’判断输入次数，如果超过三次就退出登录
Private Sub Form_Load()

End Sub
‘这句没有用