怎么将adodc1控件的数据集，导出excel啊

如何将adodc1控件的数据集，导出excel啊？
如果指定字段我还会。但是现在要整个adodc1的数据集整个拷贝到excel

  '将数据集导入到excel
 Dim xlAp As Excel.Application
 Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.Worksheet
 
 Set xlApp = CreateObject("Excel.Application")
 Set xlBook = xlApp.Workbooks.Open("c:\订单报表.xlsx")
 Set xlSheet = xlBook.Worksheets(1)
 xlApp.Visible = True
 
 Dim u As Integer '定位单元格 行
 Dim v As Integer '定位单元格 列
 Dim q As Integer '数据集的数量
 Dim p As Integer '数据的字段数
  
  u = 1: v = 1
  q = Adodc1.Recordset.RecordCount
  p = 35
  
  Adodc1.Recordset.MoveFirst
  

For u = 1 To q
  
  For v = 1 To 35
  
   
  xlSheet.Cells(u + 1, v) = Adodc1.Recordset.Fields("u,v")这里不知道改怎么写？
   
  
   
  Next v
   
  Adodc1.Recordset.MoveNext
   
Next u


[解决办法]

VB code

Private Sub Command1_Click()    Dim xlAp As Excel.Application    Dim xlBook As Excel.Workbook    Dim xlSheet As Excel.Worksheet        Set xlApp = CreateObject("Excel.Application")    Set xlBook = xlApp.Workbooks.Open("c:\订单报表.xlsx")    Set xlSheet = xlBook.Worksheets(1)    xlApp.Visible = True        Dim u As Integer '定位单元格 行    Dim v As Integer '定位单元格 列    Dim q As Integer '数据集的数量    Dim p As Integer '数据的字段数         '   u = 1 不需要 '   v = 1 不需要    q = Adodc1.Recordset.RecordCount    p = 35        Adodc1.Recordset.MoveFirst            For u = 1 To q       For v = 1 To 35            xlSheet.Cells(u + 1, v) = Adodc1.Recordset.Fields([color=#FF0000]v-1[/color]) '这里不知道改怎么写？        Next v        Adodc1.Recordset.MoveNext    Next uEnd Sub
[解决办法]
Private Sub Command1_Click()
   Dim xlAp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
  
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Open("c:\订单报表.xlsx")
   Set xlSheet = xlBook.Worksheets(1)
   xlApp.Visible = True
  
   Dim u As Integer '定位单元格 行
   Dim v As Integer '定位单元格 列
   Dim q As Integer '数据集的数量
   Dim p As Integer '数据的字段数
  
  
   'u = 1
   'v = 1
   q = Adodc1.Recordset.RecordCount
   p = 35
  
   Adodc1.Recordset.MoveFirst
  
  
   For u = 1 To q
       For v = 1 To 35
           xlSheet.Cells(u + 1, v) = Adodc1.Recordset.Fields(v-1) '这里不知道改怎么写？
       Next v
       Adodc1.Recordset.MoveNext
   Next u

End Sub