Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value

        Dim i As Integer = 1


        Dim tmpConn As New SqlConnection(connStrDBHERFI)
        Dim tmpComm As SqlCommand = Nothing
        Dim tmpRdr As SqlDataReader = Nothing
        Try

            xlApp = New Excel.ApplicationClass
            xlWorkBook = xlApp.Workbooks.Add(misValue)
            xlWorkSheet = xlWorkBook.Sheets("sheet1")
            Me.Cursor = Cursors.WaitCursor
            If Not tmpConn.State = ConnectionState.Open Then tmpConn.Open()
            tmpComm = New SqlCommand("Select cardcode, cardname from ocrd where 'y' not in (FrozenFor, ValidFor)", tmpConn)
            tmpRdr = tmpComm.ExecuteReader(CommandBehavior.Default)
            If tmpRdr.HasRows Then
                Do While tmpRdr.Read
                    xlWorkSheet.Cells(i, 1) = tmpRdr.Item("CardCode")
                    xlWorkSheet.Cells(i, 2) = tmpRdr.Item("CardName")
                    i += 1
                Loop
                With xlWorkSheet.Range("A1", "B" & i)
                    '.BorderAround()'
                    .Sort(Key1:=.Columns(2), Order1:=Excel.XlSortOrder.xlAscending, _
    Key2:=.Columns(1), Order2:=Excel.XlSortOrder.xlAscending, _
    Orientation:=Excel.XlSortOrientation.xlSortColumns, _
    Header:=Excel.XlYesNoGuess.xlNo, _
    SortMethod:=Excel.XlSortMethod.xlPinYin, _
    DataOption1:=Excel.XlSortDataOption.xlSortNormal, _
    DataOption2:=Excel.XlSortDataOption.xlSortNormal, _
    DataOption3:=Excel.XlSortDataOption.xlSortNormal)
                End With


            End If
            tmpRdr.Close()
            tmpConn.Close()
            tmpConn.Dispose()

            xlWorkSheet.SaveAs("c:\Temp\test.xlsx")
            xlWorkBook.Close()
            xlApp.Quit()

            releaseObject(xlApp)
            releaseObject(xlWorkBook)
            releaseObject(xlWorkSheet)

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            Me.Cursor = Cursors.Default
        End Try
    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub