Public Sub RunButton_Click()

 
  Set cnn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")


  cnn.CommandTimeout = 0
  
  cnn.Open "Driver={SQL Server};Server=servname;APP=T-12;Uid=users;Pwd=userpass;Database=dbname"
 

 
  rs.ActiveConnection = cnn
 
  rs.Source = "EXECUTE [Reporting].[ComputeData]  @StartDate = '" + Format(StartDatePicker.Value, "yyyymmdd") + "' , @EndDate = '" + Format(EndDatePicker.Value, "yyyymmdd") + "'"
  
  Sheets("Period").Range("A1") = "начало периода: " + Format(StartDatePicker.Value, "dd-mm-yyyy")
  Sheets("Period").Range("A2") = "конец периода: " + Format(EndDatePicker.Value, "dd-mm-yyyy")
  rs.Open

  If rs.EOF Then
     MsgBox "Записей нет"
  Else
    rs.MoveFirst
    Sheets("Data").Range("A" & 1).CopyFromRecordset rs
  End If

 
  rs.Close
  Set rs = Nothing
 
  cnn.Close
  Sheets("Data").Activate
End Sub


 

Private Sub Workbook_Open()
   ParamsForm.Show
  ParamsForm.StartDatePicker.Value = Date
  ParamsForm.EndDatePicker.Value = Date
End Sub