Sub RunUpdateQuery() Dim cnn As ADODB.Connection Set cnn = New ADODB.Connection Set cnn = CurrentProject.Connection cnn.Execute "qryIncreaseTotalEstimate" cnn.Close End Sub