Dim sSQLQry As String
Dim Conn As Object 'New ADODB.Connection
Dim rs As Object 'ADODB.Recordset
Set Conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")   
  
sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & pathBase_global & ";Extended Properties=""Excel 12.0 Macro;HDR=YES"";" ' подключение к базе данных
 
For i = 5 To last ' last - определено
                stID = shCalls.Range("R" & i).Value
                sSQLSting = "SELECT Клиент, Тип_Клиента, Менеджер, Дата_Звонка, Дата_Закрытия, Статус_Клиента, Контактное_лицо, Телефон, Email, Медиа, Бюджет_сНДС, Индекс"
                sSQLSting = sSQLSting & " FROM `База$`"
                sSQLSting = sSQLSting & " WHERE Индекс='" & stID & "'"
                Conn.Open sconnect
                rs.Open sSQLSting, Conn, 2, 3
                ' rs.AddNew ' Для добавления новой записи 
                rs.Fields("Индекс") = CStr(stID) 
                rs.Fields("Клиент") = CStr(shCalls.Range("A" & i).Value) 
                rs.Fields("Тип_Клиента") = CStr(shCalls.Range("B" & i).Value) 
                rs.Fields("Менеджер") = CStr(strManager_global) 
                rs.Fields("Дата_Звонка") = DateValue(Format(shCalls.Range("D" & i).Value, "DD.MM.YYYY")) 
                If shCalls.Range("E" & i).Value <> "" Then rs.Fields("Дата_Закрытия") = DateValue(Format(shCalls.Range("E" & i).Value, "DD.MM.YYYY")) 
                rs.Fields("Статус_Клиента") = CStr(shCalls.Range("F" & i).Value) 
                rs.Fields("Контактное_лицо") = CStr(shCalls.Range("G" & i).Value)
                rs.Fields("Телефон") = CStr(shCalls.Range("H" & i).Value) 
                rs.Fields("Email") = CStr(shCalls.Range("I" & i).Value) 
                rs.Fields("Медиа") = CStr(shCalls.Range("J" & i).Value) 
                rs.Fields("Бюджет_сНДС") = CStr(shCalls.Range("L" & i).Value) 
                rs.Update
                rs.Close: Conn.Close
Next i