VB通过ADODC实现数据导出至Excel，含DATAGRID表头

Private Sub Command3_Click()
Dim Irow, Icol As Integer
Dim Irowcount, Icolcount As Integer
Dim Fieldlen() As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=PW;Persist Security Info=True;User ID=sa;Initial Catalog=DB;Data Source=SERVER"
Adodc1.RecordSource = "select * from TB"
Adodc1.Refresh
With Adodc1.Recordset
Adodc1.Recordset.MoveLast
If .RecordCount < 1 Then
MsgBox ("Error 没有记录!")
Exit Sub
End If

Irowcount = .RecordCount '记录总数
Icolcount = .Fields.Count '字段总数
ReDim Fieldlen(Icolcount) As Integer
Adodc1.Recordset.MoveFirst
For Irow = 1 To Irowcount + 1
For Icol = 1 To Icolcount
Select Case Irow

Case 1 '在Excel中的第一行加标题
xlSheet.Cells(Irow, Icol).Value = RTrim(.Fields(Icol - 1).Name)