程序代码：

Public Con As ADODB.Connection  '连接数据库
Public Res As ADODB.Recordset   '数据库的表
Private Sub 按钮_Click()
    Set Con = New ADODB.Connection
    Con.Open "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" 数据库路径\数据库"
    SQL = "update 要更新的表 set 字段1='要更新的内容' where 字段2='内容2'"
    Con.Execute SQL
    Con.Close
    Set Con = Nothing
End Sub