Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Making Bulk Changes
Sub RunUpdateQuery()
    Dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection
    Set cnn = CurrentProject.Connection
    cnn.Execute "qryIncreaseTotalEstimate"
    cnn.Close
End Sub