找人注释下这段代码，完了支付宝转16块给你

主要源代码如下：
公共模块
Public Cn As New ADODB.Connection ''连接数据库
Public UserID As String ''用户名称
Public ItemName As String ''项目名称
Public strTableName As String ''表名
Public UserType As String
Public SelData(10)
Const DayLastFine = 0.5 '定义超期每天费用0.5元
Sub Init()
ItemName = "图书管理系统"
Call ConnectData
End Sub
Sub ConnectData()
If Cn.State Then Cn.Close
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Persist Security Info=False"
Cn.Open
End Sub
Sub LoadGrid(mfg As MSHFlexGrid, rstSql As String)
Dim rst As New ADODB.Recordset
rst.Open rstSql, Cn, adOpenStatic, adLockReadOnly
With mfg
.Clear
.Rows = 2
.Cols = rst.Fields.Count
For i = 0 To rst.Fields.Count - 1
.TextMatrix(0, i) = Trim(rst(i).Name)
.ColWidth(i) = (.Width - 500) / .Cols
Next i
While Not rst.EOF
For i = 0 To rst.Fields.Count - 1
If Not IsNull(rst(i)) Then .TextMatrix(.Rows - 1, i) = Trim(rst(i))
Next i
.Rows = .Rows + 1
rst.MoveNext
Wend
End With
End Sub