cnn.Open cnnstr
cmd.ActiveConnection = cnn
cmd.CommandTimeout = 120
cmd.CommandText = "dbo.t_bigData_MetalParts"
cmd.CommandType = adCmdStoredProc
' Set para1 = cmd.CreateParameter("item", adVarChar, adParamInput, 10, item)
' Set para2 = cmd.CreateParameter("startDate", adDate, adParamInput, 10, dt1)
' Set para3 = cmd.CreateParameter("endDate", adDate, adParamInput, 10, dt2)
'
' cmd.Parameters.Append para1
' cmd.Parameters.Append para2
' cmd.Parameters.Append para3
'
rst.Open cmd
Set xlQr = sht.QueryTables.Add(rst, sht.Range("A1"))
With xlQuery
.FieldNames = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.MaintainConnection = False
End With
xlQuery.Refresh