Dim cnn As New ADODB.Connection
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=D:\1\Test.xls;" & _
      "Extended Properties=""Excel 8.0;"""
      
    cnn.Execute "INSERT INTO TABLE1 ([Field B]) VALUES (124)"

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=D:\1\Test.xls;" & _
      "Extended Properties=""Excel 8.0;"""

    With rst
       .CursorLocation = adUseClient
       .Open "SELECT * FROM [Лист1$A1:B8]", _
         cnn, adOpenStatic, adLockOptimistic
       .AddNew
       .Fields( 1 ).Value =  125 
       .Update
       .Close
    End With
   
   Set rst = Nothing
   cnn.Close
   Set cnn = Nothing