vba внесение данных с листа

vba-Внесение данных с листа.vba

Sub load()

    Dim ADO
    Dim connectString As String
    Dim zapros As String

    Set ADO = CreateObject("ADODB.Connection")
    connectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=11111;Data Source=1111"
    ADO.ConnectionTimeout = 0
    ADO.CommandTimeout = 0
    ADO.Open connectString
    
    zapros = "delete from dbo.T_E_test_MX"
    ADO.execute zapros
    ActiveWorkbook.Sheets("МХ").Activate
                    
                    
    Dim i
    i = 2
    Do While Cells(i, 1) <> ""
      
        zapros = "insert into dbo.T_E_test_MX(RC, typee, MXDZ) values('" & "" & "', '" & "" & "', " & "" & ") "
        Debug.Print zapros
        
        ADO.execute zapros
        
        i = i + 1
    Loop
        
        Debug.Print "FINISH"
        
End Sub