Sub exaCreateAction()
Dim db As Database
Dim qdf As QueryDef
Dim strSQL As String
Set db = CurrentDb
strSQL = "UPDATE BOOKS SET Price = Price*1.1 WHERE Price > 20"
Set qdf = db.CreateQueryDef("PriceInc", strSQL)
qdf.Execute
End Sub