Public Sub TransToSpreadsheet()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Students", CurrentProject.Path & "\MySpreadSheet.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Students And Classes", CurrentProject.Path & "\MySpreadSheet.xls"
End Sub