动态创建EXCEL文件的方法，从http://support.microsoft.com/kb/306022 找的。

Public Function OutputToExcel_ADODB(ByVal mdbFile As String, ByVal sTable As String, ByVal xlsFile As String) As Boolean
        Dim conn As New ADODB.Connection()
        Dim rs As ADODB.Recordset
        conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile & ";")
        conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rs = conn.Execute(sTable, , ADODB.CommandTypeEnum.adCmdTable)
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        oSheet = oBook.Worksheets(1)
        Dim n As Int32
        For n = 1 To rs.Fields.Count
            oSheet.Cells(1, n).Value = rs.Fields(n - 1).Name
        Next
        oSheet.Range("A2").CopyFromRecordset(rs)
        oBook.SaveAs(xlsFile)
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
        rs.Close()
        conn.Close()
        Return True
    End Function