Public Sub RunQuery(w As String)
  Dim con As ADODB.Connection
  Dim cmd As ADODB.Command
  Dim rs As ADODB.Recordset
  Dim WSP1 As Worksheet
  Set con = New ADODB.Connection
  Set cmd = New ADODB.Command
  Set rs = New ADODB.Recordset

  Application.DisplayStatusBar = True
  Application.StatusBar = "Contacting SQL Server..."

  Set WSP1 = Worksheets(w)
  WSP1.Activate

  ' Remove any values in the cells where we want to put our Stored Procedure's results.
  Dim rngRange As Range
  Set rngRange = Range(Cells(4, 1), Cells(Rows.Count, 1)).EntireRow
  rngRange.ClearContents

  ' Log into our SQL Server, and run the Stored Procedure
  con.Open "Provider=SQLOLEDB;Data Source=.;Initial Catalog=xxx;User ID=xx;Password=xxxxxxxx;"
  cmd.ActiveConnection = con

  ' Set up the parameter for our Stored Procedure
  ' (Parameter types can be adVarChar,adDate,adInteger)
  cmd.Parameters.Append cmd.CreateParameter("StartTime", adVarChar, adParamInput, 10, Range("I1").Text)
  cmd.Parameters.Append cmd.CreateParameter("EndTime", adVarChar, adParamInput, 10, Range("I2").Text)
  'cmd.Parameters.Append cmd.CreateParameter("Numbersotrudnikov", adInteger, adParamInput, 10, Range("L1").Text)

  Application.StatusBar = "Running stored procedure..."
  cmd.CommandText = "uspMyProcedure"
  Set rs = cmd.Execute(, , adCmdStoredProc)

 ' Copy the results to cell B7 on the first Worksheet
  'Set WSP1 = Worksheets(w)
  'WSP1.Activate
  If rs.EOF = False Then WSP1.Cells(4, 1).CopyFromRecordset rs
    
  rs.Close
  Set rs = Nothing
  Set cmd = Nothing

  con.Close
  Set con = Nothing
  
  Application.StatusBar = "Data successfully updated."
  
  Columns("A:A").Select
  Selection.NumberFormat = "d/m/yyyy h:mm"
  'Selection.NumberFormat = "yyyy-mm-dd hh:mm:ss"
  'Columns("A:A").Select
    Selection.Replace What:="-", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
  
  Range("B2").Select

End Sub