在VBA中，使用Update语句可对数据库中的记录进行修改，一般用where子句限制需要修改记录的范围。
下面用一个简单的实例说明如何修改数据库：
编写代码如下：
Sub 修改客户名称()
Dim cnn As New Connection, strcon As String
Dim strSql As String, custID As String, custName As String
With Worksheets("修改") '获取输入信息
custID = .Range("B1") '获取客户ID
custName = .Range("B2") '获取公司名称
End With
If Trim(custID) = "" Or Trim(custName) = "" Then
MsgBox "请输入“客户ID”和“公司名称”信息！", vbCritical + vbOKOnly
Exit Sub
End If
On Error Resume Next
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & ThisWorkbook.Path & "\Northwind.mdb"
cnn.Open strcon '打开数据库连接
strSql = "UPDATE 客户 SET 公司名称='" & custName & _
"' WHERE 客户ID='" & custID & "'" '修改"客户"表的SQL语句
cnn.Execute (strSql) '执行SQL命令
cnn.Close
Set cnn = Nothing
End Sub
上面的代码运行后，数据库中表“客户”的记录的“客户ID”为TESTA的公司的名称改为了“测试公司1"。
－End－