VBA Access -根据用户输入在表中添加新记录，并自动完成其余部分

Private Sub AddRecord_Click()
    Dim db As Database
    Dim rs As Recordset
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 打开表格
    Set rs = db.OpenRecordset("表名")
    
    ' 添加新记录
    rs.AddNew
    
    ' 设置字段值
    rs("字段1") = Me.文本框1.Value
    rs("字段2") = Me.文本框2.Value
    ' 其他字段...
    
    ' 保存记录
    rs.Update
    
    ' 关闭记录集和数据库
    rs.Close
    db.Close
    
    ' 释放对象
    Set rs = Nothing
    Set db = Nothing
    
    ' 清空文本框
    Me.文本框1.Value = ""
    Me.文本框2.Value = ""
    ' 其他文本框...
    
    ' 提示添加成功
    MsgBox "记录已添加成功！"
End Sub