已知一个名为“学生”的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