摘要：add_rs.Open "员工表", add_conn, adOpenKeyset, adLockOptimistic
在前端窗体界面添加数据，完成后端点击【添加按钮】
添加成功，在后端表已添加前端录入的数据
On Error GoTo 添加失败错误
' 如果代码运行过程中发生错误，跳转到 "添加失败错误" 标签处执行
If 员工号 = "" Or IsNull(员工号) = True Then
' 检查变量“员工号”是否为空或为 Null
MsgBox "员工号值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
If 姓名 = "" Or IsNull(姓名) = True Then
' 检查变量“姓名”是否为空或为 Null
MsgBox "姓名值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
If 性别 = "" Or IsNull(性别) = True Then
' 检查变量“性别”是否为空或为 Null
MsgBox "性别值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
If 部门 = "" Or IsNull(部门) = True Then
' 检查变量“部门”是否为空或为 Null
MsgBox "部门值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
If 职位 = "" Or IsNull(职位) = True Then
' 检查变量“职位”是否为空或为 Null
MsgBox "职位值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
If 联系方式 = "" Or IsNull(联系方式) = True Then
' 检查变量“联系方式”是否为空或为 Null
MsgBox "联系方式值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
If 工资 = "" Or IsNull(工资) = True Then
' 检查变量“工资”是否为空或为 Null
MsgBox "工资值为空！"
' 如果为空，弹出提示框
Exit Sub
' 退出子过程
End If
Dim db_pathname As String
' 定义字符串变量 db_pathname，用于存储数据库文件路径
db_pathname = "C:\Users\liang\Desktop\前后端示例\后端.accdb"
' 初始化数据库路径
Dim add_conn As New ADODB.Connection
' 定义一个 ADODB.Connection 对象，用于连接数据库
Dim add_rs As New ADODB.Recordset
' 定义一个 ADODB.Recordset 对象，用于操作数据库中的记录
With add_conn
' 使用 With 语句操作 add_conn 对象
.Provider = "microsoft.ace.oledb.12.0;Jet OLEDB:Database Password='aaa123'"
' 设置数据库提供程序为 Access，并指定数据库密码
.ConnectionString = db_pathname
' 设置数据库的连接字符串为指定路径
.Open
' 打开数据库连接
End With
add_rs.Open "员工表", add_conn, adOpenKeyset, adLockOptimistic
' 打开数据库中的“员工表”，以允许修改和动态查看的方式（adOpenKeyset 和 adLockOptimistic）
add_rs.AddNew
' 添加一个新记录到当前游标位置
On Error Resume Next
' 启用错误处理，忽略运行时错误并继续执行后续代码
With add_rs
' 使用 With 语句操作 add_rs 对象
add_rs!员工号.Value = 员工号.Value
' 将表单中的“员工号”值赋给新记录的“员工号”字段
add_rs!姓名.Value = 姓名.Value
' 将表单中的“姓名”值赋给新记录的“姓名”字段
add_rs!性别.Value = 性别.Value
' 将表单中的“性别”值赋给新记录的“性别”字段
add_rs!部门.Value = 部门.Value
' 将表单中的“部门”值赋给新记录的“部门”字段
add_rs!职位.Value = 职位.Value
' 将表单中的“职位”值赋给新记录的“职位”字段
add_rs!联系方式.Value = 联系方式.Value
' 将表单中的“联系方式”值赋给新记录的“联系方式”字段
add_rs!工资.Value = 工资.Value
' 将表单中的“工资”值赋给新记录的“工资”字段
End With
add_rs.Update
' 保存当前新记录的更改到数据库
add_rs.Close
' 关闭 Recordset 对象
Set add_rs = Nothing
' 释放 Recordset 对象资源
add_conn.Close
' 关闭数据库连接
Set add_conn = Nothing
' 释放 Connection 对象资源
' 弹出提示框，显示“添加完成！”
Exit Sub
' 退出子过程
添加失败错误:
' 错误处理标签
MsgBox Err.Description
' 弹出提示框，显示错误信息
End Sub
' 子过程结束
来源：娱乐小姐姐fun