Sub a_WeekResultsExecute()
Dim MyCommand As ADODB.Command
Dim strExcelRange As String
Dim strStartCell, strSheetName, rows_count
Dim i As Long
Dim strCommandText
Call ini_param
Call OpenConnection
Set GetSourceCommand = New ADODB.Command
dd1 = Now
With GetSourceCommand
    .ActiveConnection = Connection
    .CommandText = "dbo.p_sel_WeekResults_t"
    .CommandType = adCmdStoredProc
    .NamedParameters = True
    .Parameters.Append .CreateParameter("@N", adInteger, adParamInput, , N_param)
    .Parameters.Append .CreateParameter("@d1", adDBDate, adParamInput, , d1_param)
    .Parameters.Append .CreateParameter("@d2", adDBDate, adParamInput, , d2_param)
    .Execute
End With
dd2 = Now
MsgBox "Расчеты произведены " & dd2, vbExclamation, dd1 & " !!! "

On Error GoTo KillAdo
Set GetSourceCommand = Nothing
CloseConnection
Exit Sub

KillAdo:
MsgBox "Ой, ошибка вышла. " & Err.Description, vbCritical
Set GetSourceCommand = Nothing
Set Connection = Nothing
Application.ScreenUpdating = True
End Sub