[说明] 设有一张学生成绩表存放在Acess数据库中，其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用数据控件(Data)实现了对这张数据表中记录的增加、删除、修改、查找和刷新操作，其中，删除一条记录后，要求界面显示下一条记录；要查找记录，首先要求用户输入学生姓名，程序查找并显示匹配的第一条记录；执行刷新操作后，要求界面显示数据表的第一条记录。程序的运行界面如下：

在开发过程中，数据控件Datal与成绩数据表相连接，各文本框与数据表相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDelete、CmdUpdate、CmdFind、CmdRefresh和CmdClose。[Visual Basic代码]Private Sub CmdAdd_Click() ’增加新记录 Datal.Recordset. (1) End SubPrivate Sub CmdDelete_Click()’删除记录 Data1.Recoldset.Delele Data1.Recoldset. (2) End SubPnvate Sub CmdUpdate_Click() ’修改记录 Data1.Reeordset.Edit Data1.Recordset.UpdateEnd SubPrivate Sub CmdFind_Click() ’查找记录 Dim name, search As String name = InputBox("请输入要查询的姓名:") scarch = "姓名=’" & name &"’"’Data1.Recordset. MoveFirstDara1.Recordset.FindFirst scarch If Data1.Reeoldset. (3) Then MsgBox "姓名为" & name &"的记录未找到!" End IfEnd SubPrivate Sub CmdRefresh_Click()’刷新记录 (4) End SubPrivate Sub CmdClose_Click() ’退出程序 Daral.Recordset. (5) EndEnd Sub