Private Sub CommandButton1_Click()

Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    cnn.Open "provider=SQLOLEDB;Data Source=Server;Integrated Security = SSPI;Initial Catalog=Baza;"
    
    cnn.CommandTimeout =  10000 
    
    
If Range("B1").Value = "Все" Then
    
    rst.Open "EXECUTE [baza].[reports].[prVicDepAll] '" & Format(Range("B2").Value, "dd.mm.yyyy") & "', '" & Format(Range("B3").Value, "dd.mm.yyyy") & "'", cnn
   
Else
    rst.Open "EXECUTE [baza].[reports].[prVicDepReg] '" & Format(Range("B2").Value, "dd.mm.yyyy") & "', '" & Format(Range("B3").Value, "dd.mm.yyyy") & "', '" & Range("B1").Value & "'", cnn
     
   
End If

    Range("Сводная_Server_baza_VicDep[[#Headers],[DirName]]").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing

End Sub