请高手帮我解释下这段VB代码的意思

Question

Private Sub Command1_Click()
DE.rs工种表.AddNew
DE.rs工种表(0).Value = Text1.Text
DE.rs工种表.Update
List1.Clear
DE.rs工种表.MoveFirst
Do While Not DE.rs工种表.EOF
List1.AddItem DE.rs工种表(0).Value
DE.rs工种表.MoveNext
If DE.rs工种表.EOF Then Exit Sub
Loop
End Sub

Private Sub Command2_Click()
If MsgBox("确实要删除吗?", vbQuestion + vbYesNo, "提示") = vbYes Then
DE.rs工种表.Delete
DE.rs工种表.MoveNext
If DE.rs工种表.EOF Then
DE.rs工种表.MoveLast
End If
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Do While Not DE.rs工种表.EOF
List1.AddItem DE.rs工种表(0).Value
DE.rs工种表.MoveNext
If DE.rs工种表.EOF Then Exit Sub
Loop
End Sub

Answer 1

Private Sub Command1_Click() '按钮单击事件开始
DE.rs工种表.AddNew '添加一个新数据
DE.rs工种表(0).Value = Text1.Text '把text1.text插入数据库工种表(0).
DE.rs工种表.Update '更新记录集
List1.Clear '清除列表框中的数据
DE.rs工种表.MoveFirst '记录指针移动到第一个记录
Do While Not DE.rs工种表.EOF '如果不是记录的末尾，
List1.AddItem DE.rs工种表(0).Value '从记录集读取数据，往List中添加记录的数据
DE.rs工种表.MoveNext '让记录集移动到下一个。
If DE.rs工种表.EOF Then Exit Sub 如果到了记录的末尾，退出过程
Loop 循环
End Sub 结束过程

Private Sub Command2_Click()
If MsgBox("确实要删除吗?", vbQuestion + vbYesNo, "提示") = vbYes Then 如果单击的是确定按钮那么
DE.rs工种表.Delete 删除记录集
DE.rs工种表.MoveNext 移动到下一个记录
If DE.rs工种表.EOF Then 如果是记录的末尾
DE.rs工种表.MoveLast 移动到最后一个
End If
End If
End Sub

Private Sub Command3_Click()
Unload Me 卸载窗体
End Sub

Private Sub Form_Load()
Do While Not DE.rs工种表.EOF
List1.AddItem DE.rs工种表(0).Value
DE.rs工种表.MoveNext 这段代码就是循环从数据库中读取输入往list中添加项目
If DE.rs工种表.EOF Then Exit Sub
Loop
End Sub