Public Sub Main()


        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim fld As ADODB.Field
        Dim sConnString As String

        sConnString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=DWH;Integrated Security=SSPI;"

        conn = New ADODB.Connection
        rs = New ADODB.Recordset


        conn.ConnectionString = sConnString
        conn.Open()
        



        Dim FileName As String

        FileName = "C:\FTP\asna\output\" + Dts.Variables("var1").Value.ToString + "_1.xlsx"

        Dim oExcel As New Microsoft.Office.Interop.Excel.Application()
        Dim oBook As Microsoft.Office.Interop.Excel.Workbook
        Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet



        oExcel.ScreenUpdating = False
        oExcel.DisplayAlerts = False
        oExcel.Interactive = False
        oExcel.Visible = False
        oExcel.SheetsInNewWorkbook = 2


        oBook = oExcel.Workbooks.Add()
        Dim col As Integer

		rs = conn.Execute("select * from tab1")

        '----------------Продажи--------------------'
        oSheet = CType(oBook.Worksheets(1), Worksheet)
        oSheet.Name = "Продажи"

        If Not rs.EOF Then
            'Формирование наименований колонок
            col = 1
            For Each fld In rs.Fields
                oSheet.Cells(1, col).value = fld.Name.ToString
                col = col + 1
            Next
            'Вывод данных
            oSheet.Cells(2, 1).CopyFromRecordset(rs)

            rs.Close()
        Else
            MsgBox("Error: No records returned.")
        End If



        rs = conn.Execute("select * from tab2")

        ''----------------Закупки--------------------'
        oSheet = CType(oBook.Worksheets(2), Worksheet)
        oSheet.Name = "Закупки"


        If Not rs.EOF Then
            'Формирование наименований колонок
            col = 1
            For Each fld In rs.Fields
                oSheet.Cells(1, col).value = fld.Name.ToString
                col = col + 1
            Next
            'Вывод данных
            oSheet.Cells(2, 1).CopyFromRecordset(rs) 'Без этой строки процесс закрывается

            rs.Close()


        Else
            MsgBox("Error: No records returned.")
        End If

        conn.Close()


        ReleaseObject(fld)
        ReleaseObject(rs)
        ReleaseObject(conn)


        rs = Nothing
        fld = Nothing
        conn = Nothing


        oBook.SaveAs(FileName)
        oBook.Close()
        oExcel.Quit()

        oSheet = Nothing
        oBook = Nothing




        ReleaseObject(oSheet)        
        ReleaseObject(oBook)        
        ReleaseObject(oExcel)

        oSheet = Nothing
        oBook = Nothing
        oExcel = Nothing
        conn = Nothing

        Dts.TaskResult = ScriptResults.Success
    End Sub

	Private Sub ReleaseObject(ByVal obj As Object)
        Try
            Dim intRel As Integer = 0
            Do
                intRel = System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
                'MsgBox(intRel)
            Loop While intRel > 0
        Catch ex As Exception
            obj = Nothing
            'MsgBox(ex.Message)
        Finally
            GC.Collect()
            GC.WaitForPendingFinalizers()
        End Try
    End Sub