How I would approach this
The way that I would approach this would be to use the Connection to connect to the database and multiple recordsets to get to the tables.
Code:
GLOBAL DB as New Connection
Sub Connect()
DB.Open "dsn=YourDSN;uid=user;pwd=pass" 'ONLY DO THIS ONCE
End Sub
Sub OpenTables()
Dim rs1 as New Recordset
Dim rs2 as New Recordset
rs1.open "SELECT * FROM tbl1",DB,adOpenForwardOnly,adOpenReadOnly
rs2.open "SELECT * FROM tbl2",DB,adOpenForwardOnly,adOpenReadOnly
if rs1.eof = false
if rs2.eof = false
'DO your work here
end if
end if
End Sub
Hope this helps