关于VB+aceess图书管理系统一些代码问题，请高手帮忙详细解释下，谢谢！

Option Explicit
Dim rs_addreader As New ADODB.Recordset

Private Sub Command1_Click()
Dim sql As String
If Trim(Combo1.Text) = "" Then
MsgBox "请选择读者种类", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Exit Sub
End If
If Trim(Text1.Text) = "" Then
MsgBox "读者姓名不能为空", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "读者编号不能为空", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
sql = "select * from 读者信息 where 读者编号='" & Text2.Text & "'"
rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addreader.EOF Then
rs_addreader.AddNew
rs_addreader.Fields(0) = Trim(Text1.Text)
rs_addreader.Fields(1) = Trim(Text2.Text)
rs_addreader.Fields(2) = Trim(Combo2.Text)

这个窗口是添加读者信息的窗口:
Option Explicit '强制声明变量
Dim rs_addreader As New ADODB.Recordset '定义读者信息数据集
Private Sub Command1_Click() '应该是"添加"按钮
combo1是读者信息选项,text1和text2里面分别应该是读者姓名和编号.如果没有填写,就提示不能为空.然后退出这个过程.如果这些都满足
sql = "select * from 读者信息 where 读者编号='" & Text2.Text & "'"
从读者信息表中根据读者编号查找.
rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic '打开数据库查找
If rs_addreader.EOF Then '如果找不到
rs_addreader.AddNew '就添加新的信息.
以下几句就是添加的过程。
然后提示添加成功.
Else
MsgBox "读者编号重复！", vbOKOnly + vbExclamation, ""
否则就提示编号重复,把编号位置清空,退出过程.

Private Sub Command2_Click()
Unload Me
End Sub

这是退出窗口.

Private Sub Form_Load()
Combo2.AddItem "男"
Combo2.AddItem "女"
....
窗口加载过程.
combo2选项中添加男女选项.
然后打开读者类别表.把所有类别添加到combol中.
If userpow = "guest" Then '这是一开始定义的管

谁会用VB做图书管理系统？ 用VB做图书管理系统 如何用VB做图书管理系统？ 图书管理系统vb+access改为vb+sql VB中ADO控件连接ACEESS添加记录问题 求:VB+SQL SERVER 图书管理系统源代码!!~~~ 急求一个VB做的图书管理系统! 跪求用VB做的图书管理系统原代码 求个VB+ACCESS的图书借阅管理系统 关于图书管理系统现状分析