Private Sub cmdGetData_Click()
On Error GoTo Err_cmdGetData_Click

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
  .Connection = "OLEDB;Provider=sqloledb;Data Source=BAZE\BAZE;Initial Catalog=ля-ля-ля;Integrated Security=SSPI"
  .CommandType = xlCmdSql
  .CommandText = "dbo.SP_Trapecija '" & Me.txtOrderNo & "'"
  .MaintainConnection = True
   Шо дальше то, а?  
End With

Exit_cmdGetData_Click:
    Exit Sub

Err_cmdGetData_Click:
    MsgBox "Случилось что-то ужасное. Программа очень удивлена и дальше работать не может.", vbCritical, "Trapecija"
    Resume Exit_cmdGetData_Click

End Sub

    n =  2     
    Do While Not rs.EOF
    Range("A" & n).Value = rs("OrderNo")
....
    Range("J" & n).Value = rs("Issikisimas")
    n = n +  1 
    rs.MoveNext
    Loop

    n =  0 
    Do While Not rs.EOF
    With Me.lstMyList
    .AddItem rs("OrderNo")
    .List(n,  1 ) = rs("TipoPavadinimas")
    .List(n,  2 ) = rs("Бла-бла-бла и так далее")
    n = n +  1 
    rs.MoveNext
    Loop

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Saved = True
End Sub

Sub Auto_Close()
 Разные тулбарчики там = что-то да, а что-то нет
End Sub

Private Sub GetData_Click()

Dim pc As PivotCache, pt As PivotTable

Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)

With pc
  .Connection = "OLEDB;Provider=sqloledb;Data Source=BAZE\BAZE;Initial Catalog=LKVITAI-DB-V1SQL;User Id=sa;Password=lauresta;"
  .CommandType = xlCmdSql
  .CommandText = "dbo.SP_PrintedToday"
  .MaintainConnection = True
End With

'Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc, TableDestination:=ActiveSheet.Range("A1"))

With pt
    .AddFields "RusiesPavadinimas", "FilialoPavadinimas"
'    .AddDataField "BendrasKiekis", "BendrasKiekis"
    
End With

End Sub