Public Sub RunButton_Click()

  Sheets("Period").Range("A1") = "Íà÷àëî ïåðèîäà: " + Format(StartDatePicker.Value, "dd-mm-yyyy")
  Sheets("Period").Range("A2") = "Îêîí÷àíèå ïåðèîäà: " + Format(EndDatePicker.Value, "dd-mm-yyyy")
  
  
  Dim SrcTableName As String
  
  Dim ClusterName As String
  ClusterName = ClusterComboBox.Value
  
  Set CalcDataCnn = CreateObject("ADODB.Connection")
  CalcDataCnn.CommandTimeout = 0
  CalcDataCnn.Open "Driver={SQL Server};Server=xxxxxx;APP=T-12;Uid=xxxxxx;Pwd=xxxxx;Database=xxxxxx"
   
    
  Set SrcTableNameRecordSet = CreateObject("ADODB.Recordset")
  SrcTableNameRecordSet.ActiveConnection = CalcDataCnn
  
  SrcTableNameRecordSet.Source = "EXECUTE [schema].[ReturnDataTableName]  @NeedTMP =1 , @TableNameOnly = 1, @ForExcel=1, @UseDates  = 1, @StartDate = '" + Format(StartDatePicker.Value, "yyyymmdd") + "' , @EndDate = '" + Format(EndDatePicker.Value, "yyyymmdd") + "'" + " ,@Cluster = " + "'" + ClusterName + "'"
  SrcTableNameRecordSet.Open
  

  If SrcTableNameRecordSet.EOF Then
     MsgBox "Error: no table name"
  Else
  '  SrcTableNameRecordSet.MoveFirst
    SrcTableName = SrcTableNameRecordSet.GetString 'èìÿ òàáëèöû ñ äàííûìè
  End If
  SrcTableNameRecordSet.Close
  CalcDataCnn.Close
  
 
  
  Set DataCnn = CreateObject("ADODB.Connection")
  DataCnn.CommandTimeout = 0
  DataCnn.Open "Driver={SQL Server};Server=xxxxxx;APP=T-12;Uid=xxxxxx;Pwd=xxxxx;Database=xxxxxx"
   
  Set DataSheetRecordSet = CreateObject("ADODB.Recordset")
  DataSheetRecordSet.ActiveConnection = DataCnn
  
      
  DataSheetRecordSet.Source = "SELECT * FROM  " + SrcTableName + " ; DROP TABLE " + SrcTableName
  DataSheetRecordSet.Open
      
  If DataSheetRecordSet.EOF Then
    MsgBox "Error: no data"
  Else
   ' DataSheetRecordSet.MoveFirst
    Sheets("Data").Range("A" & 1).CopyFromRecordset DataSheetRecordSet
  End If
  DataSheetRecordSet.Close

  Set DataSheetRecordSet = Nothing
  Set SrcTableNameRecordSet = Nothing
    
  DataCnn.Close
  
  
  Sheets("Data").Activate
End Sub