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

如果学号重复，则给出提示信息。

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

Private Sub Form_LoadO

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

Set ADOcn ＝ CurrentProject.Connection

End Sub

Dim ADOcn As New ADODB.Connection

Private Sub Commandl Click （）

，增加学生记录

Dim strSOL As String

Dim ADOrs As New AUU0t3xecoraset

Set ADOrs.ActiveConnection 二 ADOcn

ADOrs.Open "Select 学号 From Stud Where 学号＝ ” ，＋ tNo ＋ ' ，一 ' ，

If Not ADOrs. 【 14 】 Then

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

MsgBox ” 你输入的学号己存在，不能增加！ ”

Else

' 增加新学生的记录

strSOL 二 "Insert Into stud （字兮， ir'E=G ， 11350 ， FIABW ）

‘ strSQL 一 strSQL ＋ "Values （一 +tNo+"' ， '"+tName+"' ， '"+tSex+" · ， '"+tRes+" ），，

ADOcn.Execute 【 15 】

MsgBox ” 添加成功，请继续！ ”

End If

ADOrs.Close