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

请依据所要求的功能，将如下程序补充完整。

DimADOcnAsNewADODB.Connection

PrivateSubFormLoad（）

’打开窗口时，连接Access数据库

SetADOen=CurrentProject.Connection

EndSub

PrivateSubCommand1_Click（）

’增加学生记录

DimstrSQLAsString

DimADOrsAsNewADODB.Recordset

SetADOrs.ActiveConnection=ADOcn

ADOrs.Open"Select学号FromStudWhere学号=’’+tNo+’’

IfNotADOrs.（14）Then

’如果该学号的学生记录己经存在，则显示提示信息

MsgBox’’你输入的学号己存在，不能增加!’’

Else

’增加新学生的记录

strSQL="InsertIntostud（学号，姓名，性别，籍贯）

strSQL=strSQL+"Values（"+tNo+"，"+tName+"，"+tSex+"，"+tRes+"）"

ADOcn.Execute（15）

MsgBox"添加成功，请继续!"

EndIf

ADOrs.Close

SetADOrs=Nothing

EndSub

（14）填写（）；（15）填写（）

乙类传染病中下列疾病必要时采取强制性措施控制，除了

A．伤寒
B．艾滋病
C．淋病
D．梅毒
E．炭疽