[FONT=Courier New]Sub SelectIntoX()[/FONT]
[FONT=Courier New] Dim dbs As Database[/FONT]
[FONT=Courier New] Dim qdf As QueryDef[/FONT]
[FONT=Courier New] ' Modify this line to include the path to Northwind[/FONT]
[FONT=Courier New] ' on your computer.[/FONT]
[FONT=Courier New] Set dbs = CurrentDb[/FONT]
[FONT=Courier New] ' Select all records in the Employees table[/FONT]
[FONT=Courier New] ' and copy them into a new table, Emp Backup.[/FONT]
[FONT=Courier New] dbs.Execute "SELECT Table2 * INTO [Table2i] FROM Table2;"[/FONT]
[FONT=Courier New] ' Delete the table because this is a demonstration.[/FONT]
[FONT=Courier New] dbs.Execute "DROP TABLE [Table2];"[/FONT]
[FONT=Courier New] dbs.Close[/FONT]
[FONT=Courier New]End Sub[/FONT]