[说明] 设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别

问题：

[说明] 设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：

在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。[Visual Basic代码]Private Sub Form_Load( ) ’ 加载窗体 Combo1. (1) "男" Combo1. (1) "女" Combo2. (1) "党员" Combo2. (1) "团员" Combo2. (1) "群众"End SubPrivate Sub CmdAdd_Cliek( ) ’增加记录Datal. Recordset. AddNewEnd SubPrivate Sub CmdDel_Click( )’删除记录 Datal. Recordset. (2) Datal. Recordset. MoveNextEnd SubPrivate Sub CmdUpdate_Click( ) ’修改记录If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then Datal. Recordset. Edit Datal. Recordset. (4) Else MsgBox "数据表不允许修改!" End IfEnd SubPrivate Sub CmdExit_Click ( )’退出程序 Dim ret As Long ret : MsgBox("真的要退出吗", vbQuestion + vbYesNo, "退出" ) If (5) Then Datal. Reeordset. Close End End ffEnd Sub