VB代码片总结

msgbox：弹出窗口，不可输入信息
inputbox：弹出窗口，可以输出信息
Private sub 定义的是模块级的函数或过程，只能在本模块中调用
Public sub 定义的是全局函数或过程，可以在任何模块中调用

BOF和EOF都为True表示在Recordset里没有任何记录

If mrc.EOF Then
     MsgBox "没有这个玩意，请重新输入!", vbOKOnly + vbExclamation, "警告"
End If

注：mrc.EOF默认为true状态，即mrc.EOF = “mrc.EOF=True”。

txtSQL = "select * from student_Info where student_ID='" & Trim(txtSID.Text) & "'"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 If mrc.EOF =