Как сделать экспорт в EXCEL 2007 - VB

InExcel97_2003_Click(Index  )
AttentionForm.Visible = True
  
   rs  Recordset
   rs = ResultForm.DataMain.Recordset.Clone
  
  rs.MoveFirst
  
   MyDate  
  MyDate = str(Format$(Now(), ))
    
    oExcel  
    oBook  
    oSheet  
    oExcel = CreateObject()
    oBook = oExcel.Workbooks.()
    oSheet = oBook.Worksheets()
    iCols  

    oSheet.Cells.
    oExcel.Selection.ClearContents
    oSheet.Range().

     iCols =   rs.Fields.Count - 
    oExcel.Cells(, iCols + ).Value = rs.Fields(iCols).
    
    oExcel.Range(oSheet.Cells(, ), oSheet.Cells(, rs.Fields.Count)).Font.Bold = True

    oExcel.Range().CopyFromRecordset rs

    oExcel.Cells.
    oExcel.Selection.Columns.AutoFit
    oExcel.Range().

     nasDirExists() 
        oBook.SaveAs FileName:= & MyDate & 
         AttentionForm.Hide
        MsgBox , , 

      MsgBox(, , )
          
             ()
            oBook.SaveAs FileName:= & MyDate & 
            AttentionForm.Hide
            MsgBox  & vbCrLf & , , 
          
            oExcel.Cells.
            oExcel.Selection.ClearContents
            oExcel.Range().
            oBook.Save
            AttentionForm.Hide
            MsgBox , , 

    oBook.Save
    oExcel.Quit
     oExcel = 
    rs.
     rs =