已知一个名为“学生”的Access数据库，库中的表“stud“存储学生的基本信息，包括、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub” 表中添加学生记录，对应“”、“姓名”和“籍贯”的四个文本框的名称分别为tNo/tName、tSex 和tRes.当单击窗体中的“增加“命令按钮名称为Commandl．时，首先判断是否重复，如果不重复则向“stud“表中添加学生记录：如果重复，则给出提示信息。 Private Sub Form_Load． 、打开窗口时，连接Access数据库 Set ADOcn=CurrentProject,Connection End Sub Dim ADOcn As New ADODB.Conneetion Private Sub Commandl_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, 【14】 Then ‘如果该的学生记录已经存在，则显示提示信息 MsgBox”你输入的已存在，不能增加！“ Else ‘增加新学生的记录 strSQL=“Insert Into stud ，姓名，性别，籍贯．” strSQL=strSQL+”Values‘”+tNo+”‘,’”+tName+” ‘,’“+tSex”‘，’+tRes+” ‘．” ADOen.Execute 【15】 MsgBox “添加成功，请继续！” End If ADOrs.Close Set ADOrs=Nothing End Sub