Public Const Provider As String = "Provider=SQLOLEDB.1;"
Public Const Security As String = 
Public Const DBName As String = 
Public Const ServerName As String = 
Dim Cnct As String, Src As String
Public Connection As ADODB.Connection
Public Recordset As ADODB.Recordset
Sub OpenConnection()
Set Connection = New ADODB.Connection
Cnct = Provider & _
                    Security & DBName & ServerName
Connection.Open ConnectionString:=Cnct
'MsgBox "Connection Established"
End Sub
Sub SomeExecute
Set wsData = ThisWorkBook.WorkSheets("data1")
records_count = wsData.Range("A1").CurrentRegion.Rows.Count
Set cn = Connection
Set rs = New ADODB.Recordset
src = "tblTemp" ' данные заливаются во временную таблицу
With rs
    
.Open src, cn, adOpenDynamic, adLockOptimistic

For i = 2 To records_count
'Циклом по строке фигачу рекордсет
.AddNew
.Fields("DatenTime") = wsData.Cells(i, 1).Value
.Fields("OutPhone") = wsData.Cells(i, 2).Value
.Fields("InPhone") = wsData.Cells(i, 3).Value
.Fields("Customer") = wsData.Cells(i, 4).Value
.Fields("t1") = wsData.Cells(i, 5).Value
.Fields("t2") = wsData.Cells(i, 7).Value
.Fields("Status") = wsData.Cells(i, 8).Value
.Fields("Operator") = wsData.Cells(i, 6).Value
.Update
        
Next i
.Close
End With
End Sub