DATASET结果集导入到EXCEL

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Private connstr, selectcmd As String
    Private conn As OleDbConnection
    Private cmd As OleDbCommand
    Private myreader As OleDbDataReader
   
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim excelApp As Object
        excelApp = CreateObject("Excel.Application")
        Dim excelBook As Object
        excelBook = excelApp.Workbooks.Add
        Dim excelWorksheet As Object
        excelWorksheet = excelBook.Worksheets(1)
        excelApp.Visible = False
        SaveFileDialog1.Title = "将结果保存为"
        SaveFileDialog1.Filter = "excel *.xls|*.xls"
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            If SaveFileDialog1.FileName <> "" Then
                Dim n As Integer
                Dim i As Integer = 2
                With excelWorksheet
                    Do While myreader.Read()
                        For n = 0 To myreader.FieldCount - 1
                            .Range(Chr(65 + n) & "1").value = myreader.GetName(n)
                            .Range(Chr(65 + n) & "1").ColumnWidth = 15
                            .Range(Chr(65 + n) & i.ToString).value = myreader.Item(n)
                        Next n
                        i += 1
                    Loop
                End With
                excelBook.saveas(SaveFileDialog1.FileName)
            End If
        End If
        excelApp.quit()
        excelApp = Nothing
        MsgBox("恭喜")
        conn.close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connstr = "provider=microsoft.jet.oledb.4.0;data source=d:/dl/dl.mdb"
        selectcmd = "select * from users"
        conn = New OleDbConnection(connstr)
        conn.Open()
        cmd = New OleDbCommand(selectcmd, conn)
        myreader = cmd.ExecuteReader
    End Sub
  
End Class