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" Set qdf = db.CreateQueryDef("PriceInc", strSQL) qdf.Execute End Sub