请高手帮忙详解下这个VB代码（请按步解释越详细越好不胜感谢必厚报）

Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Text1.SetFocus
Else
sql = "select * from 系统管理"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_add.EOF = False)
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Exit Sub
Else
rs_add.MoveNext
End If
Wend
If Trim(Text2.Text) = "" Then
MsgBox "密码不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"

Private Sub Command1_Click()
Dim sql As String '定义一个叫SQL的文本变量
Dim rs_add As New ADODB.Recordset '定义一个叫rs_add的ADODB记录集对象
If Trim(Text1.Text) = "" Then '如果TEXT1为空
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, "" '给出提示
Exit Sub '退出过程
Text1.SetFocus 'TEXT1得到焦点
Else '否则
sql = "select * from 系统管理" '为SQL变量赋值
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic ',按SQL的命令打开数据库记录集
While (rs_add.EOF = False) '如果记录集不为空
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then '如果第一个字段的值与TEXT1的值相等
MsgBox "已有这个用户", vbOKOnly + vbExclamation, "" '给出提示
Text1.SetFocus 'TEXT1得到焦点
Text1.Text = "" '清空TEXT1
Text2.Text = "" '清空TEXT2
Text3.Text = "" '清空TEXT3
Combo1.Text = "" ' '清空combo1
Exit Sub '退出过程
Else '否则
rs_add.MoveNext '记录移到下一条<

请好人心帮忙详解下这个VB程序~~谢谢！ 请高手帮忙翻译一段VB代码 学过vb编程的请帮忙解释下这个代码的功能 请高手帮忙用VB实现这个网页代码中的功能 请帮忙计算下这个VB程序!! 请vb高手解释下这个语句 请高手帮忙，这个代码是什么意思 请高手看下这个代码 请绝顶高手详解一段代码： vb高手请帮忙好吗？谢谢了！请看代码！