一、variant数据类型解释：
变量定义的一种变体类型
意思是：我现在定义了这个变量，但是我并不确定将来对他赋予什么类型来操作，所以就先暂时向内存借一个位置（空间）放下变量.等将来实际操作的时候动态的根据需要为该变量赋予相应类型
二、过程中的exit sub
exit sub 的作用是结束当前的过程，不再执行后续程序。
在此代码中的含义是：如果检测到文本框为空，则不再执行后续进程，返回初始，光标定在用户名文本框。
三、call viewdate
Call语句用于调用函数或子过程。
viewdata是函数名或子过程名来的。
调用函数或子过程序的三种方法：
-
直接写该函数或子过程名；
-
利用变量或对象赋值调用；
-
用Call语句调用；
四、mrc与mrcc
Dim Mrc as ADODB.Record
Dim mrcc as ADODB.Record
这是定义的两个不同的记录集，每个记录集自在代码运行中都有各自的节点位置，互不干扰。但是可以通过对其中一个记录集逻辑内容的判断，使另一个记录集做出与判断是否相符的事件。
下面这段代码就是通过对mrcc记录的循环判断，判断输入内容是否符合代码要求，如若符合，则删除之前mrc的记录，更新新的记录。在这里mrcc只是作为了对输入内容进行正确与否的判断依据，与mrc并没有任何关系。（感谢连康讲解，虽然理解的还不是很好。）
txtSQL = "select * from class_info"Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not (mrcc.EOF Or mrcc.BOF) Then mrcc.MoveFirst While (mrcc.EOF = False) If (Trim(mrcc.Fields(0)) = Trim(txtClassno.Text) And Trim(mrcc.Fields(1)) = Trim(combograde.Text) And _ Trim(mrcc.Fields(2)) = Trim(txtDirector.Text) And Trim(mrcc.Fields(3)) = Trim(txtClassroom.Text)) Then MsgBox "班号或年级已经存在，请重新输入！", vbOKOnly + vbExclamation, "警告" mrcc.Close txtClassno.Text = "" txtClassno.SetFocus Exit Sub Else '移动到下一条记录 mrcc.MoveNext End If Wend mrc.Delete mrcc.Close mrc.AddNew mrc.Fields(0) = Trim(txtClassno.Text) mrc.Fields(1) = Trim(combograde.Text) mrc.Fields(2) = Trim(txtDirector.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update MsgBox "更新数据成功！", vbOKOnly + vbExclamation, "修改班级信息" Else Exit Sub End If
五、对于一些属性的重新学习
窗体属性：
windowstate——设置窗体首次显示时的尺寸（若设置为Maximized或者Minimized后，无法 通过Size属性设置窗体的大小）
MDIChild——将窗体的SDI（单文档界面）转换为MDI（多文档界面）
文档属性：
passwordchar——设置文本统一字符
ScrollBars——用来设置滚动条模式， 有四种选择：
-
ScrollBars.None （无滚动条），
-
ScrollBars.Horizontal（水平滚动条），
-
ScrollBars.Vertical（垂直滚动条），
-
ScrollBars.Both（水平和垂直滚动条）。
注意：只有当MultiLine属性为true时，该属性值才有效。在WordWrap属性值为true时，
水平滚动条将不起作用
MultiLine——返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本
