高手进来帮忙注释VB代码

Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
Case 1
If rst3.Fields("是否借出") = True Then
MsgBox "此书已经借出！", 0 + 48, "提示"
txtBookBian.Text = ""
txtBookBian.SetFocus
Frame4.Visible = False
Frame7.Visible = True
Exit Sub
End If
rst2.AddNew
rst2.Fields("图书编号") = rst3.Fields("图书编号")
rst2.Fields("书名") = rst3.Fields("书名")
rst2.Fields("价格") = rst3.Fields("价格")
rst2.Fields("出版社") = rst3.Fields("出版社")
rst2.Fields("借出日期") = Date
rst2.Fields("借书证号") = BookId
rst2.Fields("姓名") = txtName.Text
rst2.Fields("类别") = rst3.Fields("类别")
rst2.Update

高手进来帮忙注释VB代码 高手帮忙给ASP代码加点注释 帮忙填写VB注释 高手帮忙修改VB代码 请高手帮忙给下面代码做个注释~ 请高手帮忙给ASP代码加点注释！谢谢 求一段VB代码，高手进来！！ VB高手进来帮忙咯 帮忙写一下这段VB代码的注释,谢了 请高手帮忙翻译一段VB代码