Проблема с выгрузкой данных через ADO

Sub sel(stSQL As String, list As String, q1 As Integer, k1 As Integer)
'Процедура выполняет sql код
'stSQL-  sql код
'list -названия листа в EXCEL
'q1-параметр период
'k1-кол-во выводимых столбцов
 
Dim reRecordSet As Recordset
Dim Conn As ADODB.Connection
Dim strConn As String
 
On Error GoTo ErrorsDB
 
  
Set WS1 = ActiveSheet 'активный лист
Set WS2 = ActiveWorkbook.Sheets(list) '- нужный лист
WS2.Cells(1, 1).Value = WS2.Cells(1, 1).Value
WS2.Activate '- нужный стал активным
 
Set Conn = New ADODB.Connection
Conn.ConnectionTimeout = 45
strConn = "Network Library=DBMSSOCN;PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=SERVER,1433;INITIAL CATALOG=baza;"
strConn = strConn & " User ID=login;Password=pas;"
Conn.ConnectionString = strConn
 
Conn.Open strCon
 
 
Dim records As ADODB.Recordset
Set records = New ADODB.Recordset
records.ActiveConnection = Conn
records.Open stSQL
 
i = 1
While Not records.EOF
For j = 1 To k1
    Worksheets(list).Cells(i + 7, j) = records(j - 1)
    Next j
  records.MoveNext
    i = i + 1
Wend
records.Close
Conn.Close
 
ErrorsDB:
 
   MsgBox "Блин ошибка"
 
Set WS1 = ActiveSheet 'активный лист
Set WS2 = ActiveWorkbook.Sheets(list) '- нужный лист
WS2.Cells(1, 1).Value = WS2.Cells(1, 1).Value
WS2.Activate '- нужный стал активным
 
End Sub

Private Sub CommandButton_Click()
   Dim stSQL As String
 Dim q1 As Integer
  Dim k1 As Integer
  Dim list As String
 
q1 = ComboBox1.Value
k1 = 41
If q1 = 0 Then
MsgBox ("Выберите период")
Else
'ТСЖ "ПЖСК №24"
stSQL = "select va.account,va.street,va.full_house_name,va.full_flat_name,ad.fam+' '+ad.imja+'.'+ad.vdch+'.' as fio,v4.n1,v1.n1,v5.n1,v3.n1,v4.n2,v1.n2,v5.n2,v3.n2,v4.n3,v1.n3,v5.n3,v3.n3,v4.n8,v1.n8,v5.n8,v3.n8,v4.n12,v1.n12,v5.n12,v3.n12,v4.n02,v1.n02,v5.n02,v3.n02,v4.n4,v1.n4,v5.n4,v3.n4,v4.n5,v1.n5,v5.n5,v3.n5,v4.n44,v1.n44,v5.n44,v3.n44 from (select id_account,[1] as n1,[19]+[43] as n2,[33] as n3,[8] as n8,[12] as n12,[2] as n02,[4] as n4,[5] as n5,[44] as n44 from(select id_account,id_service,sum(balance) as ndolg from vsum_circulate where period=" & q1 & " and id_provider=1042 group by id_account,period,id_service) p " _
& " pivot(sum(ndolg) for id_service in ([1],[2],[19],[43],[33],[8],[12],[4],[5],[44])) as pvt)v4 left join(select id_account,[1] as n1,[19]+[43] as n2,[33] as n3,[8] as n8,[12] as n12,[2] as n02,[4] as n4,[5] as n5,[44] as n44 from(select id_account,id_service,sum(sum_tariff-sum_benefit+Sum_Recalculation) as nach from vsum_circulate where period=" & q1 & " and id_provider=1042 group by id_account,period,id_service) p " _
& " pivot (sum(nach) for id_service in ([1],[2],[19],[43],[33],[8],[12],[4],[5],[44])) as pvt)v1 on v1.id_account=v4.id_account left join(select id_account,[1] as n1,[19]+[43] as n2,[33] as n3,[8] as n8,[12] as n12,[2] as n02,[4] as n4,[5] as n5,[44] as n44 from (select id_account,id_service,sum(sum_pay) as nach from vsum_circulate where period=" & q1 & " and id_provider=1042 group by id_account,period,id_service) p pivot(sum(nach) for id_service in ([1],[2],[19],[43],[33],[8],[12],[4],[5],[44])) as pvt)v5 on v5.id_account=v4.id_account left join (select id_account,[1] as n1,[19]+[43] as n2,[33] as n3,[8] as n8,[12] as n12,[2] as n02,[4] as n4,[5] as n5,[44] as n44 " _
& " from(select id_account,id_service,sum(out_balance) as nach from vsum_circulate where period=" & q1 & " and id_provider=1042 group by id_account,period,id_service) p pivot (sum(nach) for id_service in ([1],[2],[19],[43],[33],[8],[12],[4],[5],[44]) ) as pvt)v3 on v3.id_account=v4.id_account inner join vaccount_address va on va.id_account=v1.id_account left join (select   pp.id_account,left(p.Last_Name,30) as fam,left(p.First_Name,10) as imja,left(p.Second_Name,10) as vdch from (select  ad.id_account,max( pp.ID_Person) as ID_Person from dbo.Account_Property_Document ad,   dbo.Property_Document pd,   dbo.Property_Document_Person pp Where pd.ID_Property_Document=ad.ID_Property_Document and  pd.Expiration_Date is NULL and pd.ID_Property_Document=pp.ID_Property_Document  group by  ad.id_account) pp,dbo.Person p where   p.ID_Person=pp.ID_Person) AD on ad.id_account=v1.id_account order by va.street,va.full_house_name,va.full_flat_name"
 
list = "sheet1"
Call sel(stSQL, list, q1, k1)
 
  End If
End Sub