1: 2: 3: 4: 5: 6:
Private Sub MakeTables() With DoCmd .RunSQL "SELECT * INTO tblApple FROM ExternalTable1" .RunSQL "SELECT * INTO tblBannana FROM ExternalTable2" .RunSQL "SELECT * INTO tblCar FROM ExternalTable3" End With