Dim oCon As New Odbc.OdbcConnection(strCon)
oCon.Open()
 
Dim oCmd1 As New Odbc.OdbcCommand("SELECT * FROM tab1 INTO TEMP tmp_tab1", oCon)
Dim oRead1 As Odbc.OdbcDataReader = oCmd.ExecuteReader
 
Dim oCmd2 As New Odbc.OdbcCommand
("SELECT * from tab2, tmp_tab1 WHERE ... INTO TEMP  tmp_tab2", oCon)
Dim oRead2 As Odbc.OdbcDataReader = oCmd.ExecuteReader
 
oCon.Close()
oCon = Nothing