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=tiqsql;Initial Catalog=WMS_OTK_V425;User ID=sa;Password=TIQ9W6w3;"
  cmd.ActiveConnection = con

  ' Set up the parameter for our Stored Procedure
  ' (Parameter types can be adVarChar,adDate,adInteger)
  cmd.Parameters.Append cmd.CreateParameter("StartDate", adVarChar, adParamInput, 10, Range("G1").Text)
  cmd.Parameters.Append cmd.CreateParameter("EndDate", adVarChar, adParamInput, 10, Range("G2").Text)
  cmd.Parameters.Append cmd.CreateParameter("CarClass", adVarChar, adParamInput, 10, Range("J1").Text)
  cmd.Parameters.Append cmd.CreateParameter("TrainDir", adVarChar, adParamInput, 10, Range("J2").Text)
  cmd.Parameters.Append cmd.CreateParameter("SiteId", adInteger, adParamInput, 10, Range("L1").Text)

  Application.StatusBar = "Running stored procedure..."
  cmd.CommandText = "usp_GetAerageByCarClass"
  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, 2).CopyFromRecordset rs
    
  rs.Close
  Set rs = Nothing
  Set cmd = Nothing

  con.Close
  Set con = Nothing
  
  Application.StatusBar = "Data successfully updated."
  
  Columns("B:B").Select
  Selection.NumberFormat = "d/m/yyyy h:mm"
  Range("C2").Select

End Sub