Пытаюсь внести изменения в БД посредством выполнения sql-запроса UPDATE. Выдает ошибку Run-time error '-2147217900 (80040e14)': Automation error.  
Запросы типа SELECT или DELETE выполняются успешно и без ошибки.  
Кто подскажет, в чем может быть проблема?  
Код:  
 
Private Sub Dbchange()  
   Dim cnn As New ADODB.Connection  
   Set cnn = New ADODB.Connection  
   cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Table.mdb"  
   cnn.Open  
   cnn.Execute "UPDATE Table1 SET Count=Count*10;"  
   cnn.Close  
   Set cnn = Nothing  
End Sub  
 
Файлы xlsm и mbd во вложении.