Access: DoCmd.OpenQuery

set db = application.currentDb()

db.execute "create table tq84_a (col_1 integer, col_2 integer, col_3 integer)"
db.execute "create table tq84_b (col_4 integer, col_5 integer, col_6 integer)"
db.execute "create table tq84_c (col_7 integer, col_8 integer, col_9 integer)"

db.execute "insert into tq84_a values (1,10,100)"
db.execute "insert into tq84_a values (2,20,200)"
db.execute "insert into tq84_a values (3,30,300)"

db.execute "insert into tq84_b values (1,11,111)"
db.execute "insert into tq84_b values (2,22,222)"
db.execute "insert into tq84_b values (3,33,333)"

db.createQueryDef "sel", "select a.*, b.* from (tq84_a a inner join tq84_b b on a.col_1 = b.col_4)"

doCmd.OpenQuery "sel"

doCmd.close acQuery, "sel", acSaveNo
db.queryDefs.delete "sel"