输出到Excel。下列代码哪错了？

Question

Private Sub Command10_Click()
  Set re2 = New ADODB.Recordset
  re2.CursorLocation = adUseClient
  If re2.State = adStateOpen Then re2.Close
  re2 = DataGrid2.DataSource
  Dim oExcel As Object
  Dim obook As Object
  Dim osheet As Object
  Set oExcel = CreateObject("Excel.application")
  Set obook = oExcel.Workbooks.Add
  Set osheet = obook.Worksheets(1)
  oExcel.Visible = True
  osheet.Range("A1").CopyFromRecordset re2
End Sub
代码如上：我要实现的功能是把datagrid2中内容输出到excel中去，觉得没错，可系统提示说：编译错误：属性的使用无效！提示是re2错误？
要怎么改啊？
高手指教！

Answer 1

re2 = DataGrid2.DataSource
这句是不是应该写成re2.???? = DataGrid2.DataSource路过，其实我不懂……

Answer 2

不能给记录集赋值。试试：Private Sub Command10_Click()
 
  Dim oExcel As Object
  Dim obook As Object
  Dim osheet As Object
  Set oExcel = CreateObject("Excel.application")
  Set obook = oExcel.Workbooks.Add
  Set osheet = obook.Worksheets(1)
  oExcel.Visible = True
  osheet.Range("A1").CopyFromRecordset ADODC2.Recordset
End Sub

Answer 3

这句没用：
  If re2.State = adStateOpen Then re2.Close这句要加Set
  re2 = DataGrid2.DataSource
-->
set re2 = DataGrid2.DataSource