余热锅炉蒸汽出口温度高，低应怎样调节？

已知一个名为“学生”的Access数据库，库中的表“Stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“Stud”表中添加学生记录，对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex和tRes。当单击窗体中的“增加”命令按钮(名称为Command1)时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录：如果学号重复，则给出提示信息。

请依据所要求的功能，将如下程序补充完整。Dim ADOcn As New ADODB．Connection Private Sub Form_Load()’’打开窗口时，连接Access数据库 Set ADOcn=CurrentProject．ConnectionEndSubPrivate Sub Command1_Click()增加学生记录 Dim strSQL As String Dim ADOrs As New ADODB．Recordset Set ADOrs．ActiveConnection=ADOcn ADOrs．Open "Select学号From Stud Where 学号=" + tNo + " " If Not ADOrs．【 】Then’如果该学号的学生记录已经存在，则显示提示信息MsgBOX”你输入的学号已存在，不能增加!”Else’增加新学生的记录strSQL="Insert Into stud(学号，姓名，性别，籍贯)"strSQL=strSQL+"Values("+tNo+"，"+tName+"，"+tSex+"，"+tRes+")"ADOcn．Execute 【 】MsgBOX "添加成功，请继续!"EndIfADOrs．CloseSet ADOrs=Nothing End Sub