求高手解释VB代码（逐条）

1.登录部分代码：
==============按钮cmdOK的点击事件=============
Private Sub cmdOK_click()

==============连接查询数据库=================
Adodc1.RecordSource = "select * from Table_Users where 用户名='" + Trim(Text1.Text) + "'and 密码='" + Trim(Text2.Text) + "'"

==============刷新==========================
Adodc1.Refresh

=====================如果有记录就=========
If Adodc1.Recordset.RecordCount > 0 Then

================读取级别放到strOK里=========
strOk = Adodc1.Recordset.Fields("级别")

===============如果级别是"系统操作员"就======
If strOk = "系统操作员" Then

====下边是frm_main窗体上一系列控件的属性设置,我就不一一说明了=====
=========enabled属性为true时，该控件才能使用========
frm_main.gkgl.Enabled = True
frm_main.gkxx.Enabled = True
frm_main.gkxxcx.Enabled = True
......
frm_main.sjh