Sub Execute_UpdateQuery2()
Dim cmd As ADODB.Command
Dim NumOfRec As Integer
Dim strPath As String
strPath = CurrentProject.Path & "\mydb.mdb"
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
.CommandText = "Update Products Set UnitPrice = UnitPrice *1.1"
.Execute NumOfRec, adExecuteNoRecords
End With
MsgBox NumOfRec
Set cmd = Nothing
End Sub