已知一个名为“学生”的Access数据库，库中的表“Stud’’存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“Stud”表中添加学生记录，对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex和tRes。当单击窗体中的“增加”命令按钮（名称为Commandl）时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录；如果学号重复，则给出提示信息。
请依据所要求的功能，将如下程序补充完整。
DimADOcnAsNewADODB.Connection
PrivateSubForm_Load（）
打开窗口时，连接Access数据库
SetADOcn=CurrentProject.Connection
EndSub
PrivateSubCommand1_Click（）
’增加学生记录
DimstrSQLAsString
DimADOrsAsNewADODB.Recordset
SetADOrs.ActiveConnection=ADOcn
ADOrs.Open"Select学号FromStudWhere学号="+tNO+""
IfNotADOrs.（1）Then
’如果该学号的学生记录已经存在，则显示提示信息
MsgBox"你输入的学号已存在，不能增加!"
Else
增加新学生的记录
strSQL="InsertIntostud（学号，姓名，性别，籍贯）"
strSQL=strSQL+"Values（’"+tNO+"’，’"+tName+"’，’"+tSex+"’，’"+tRes+"’）"
ADOcn.Execute（2）M
sgBox"添加成功，请继续!"
EndIf
ADOrs.Close
SetADOrs=Nothing
EndSub
（1）处填（）；（2）处填（）
参考答案：EOF；strSQL
解析：
VBA程序设计基础
[评析] EOF指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值。使用BOF和EOF属性可确定Recordset对象是否包含记录，或者从一个记录移动到另一个记录时是否超出Recordset对象的限制。如果EOF属性为True，则没有当前记录。执行IF语句如果表中已有相同学号的记录，则显示“你输入的学号已存在，不能增加!”如果没有则向表中添加录入的记录s仕SQL。