Public Sub ExecQuery()
    Dim cnn As ADODB.Connection
    Dim strQuery As String
    Dim lngRecords As Long
    
    Set cnn = New ADODB.Connection
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=D:\My Databases\dbTest.mdb;" _
      & "User Id=Admin;Password=;"
      
    strQuery = "UPDATE Adding_Err SET SummaI = 0"
  
    cnn.Execute strQuery, lngRecords, adExecuteNoRecords
    
    Debug.Print "Total records updated: " & lngRecords
    
    cnn.Close
    
    Set cnn = Nothing
End Sub