VBからのsqlの呼び出し方

VB6.0について質問です。。。
現在SQLを使用して二つのAccessファイルからデータを取得して
CSV出力を行っているのですがかなり無駄な処理をしていそうなので
もっと簡略化もしくは効率的に出来る方法はないですか？
取得する項目数が多いので以下のソースを何回も交互におこなっています＞＜
ふたつの異なるデータベースをSQLで呼び出すのに毎回切断して接続の長々としたプログラムで見栄えもわるいです、、、
お知恵をおかしください。


dbs.Close
Set MyWorkspace = Workspaces(0) 'iniファイルからmdbのパスを取得
Set dbs = MyWorkspace.OpenDatabase(PATH１) '指定のmdbファイルを開く
Set ds = dbs.OpenRecordset("select XXX from abc where No = " & XXX & " ;") 'レコードカウントする

tmp2 = tmp2 & ds.Fields(0).Value & ","

dbs.Close
Set MyWorkspace = Workspaces(0)
Set dbs = MyWorkspace.OpenDatabase(PATH２)
Set ds = dbs.OpenRecordset("select XXX from efg where No = " & XXX & " ;")

tmp2 = tmp2 & ds.Fields(0).Value & ","

・
・
・

No.1 ベストアンサー 回答者： haniwannko 回答日時： 2006/04/26 19:11

二つのAccessファイルからデータを取得、とのことで、ひとつのdbsではなくて、ふたつのdbsを使われたらどうでしょう？

Set dbs1 = MyWorkspace.OpenDatabase(PATH１)

Set dbs2 = MyWorkspace.OpenDatabase(PATH２)

みたいにして。
こうすれば二つのDBセッションを同時に使えるのではないか・・と思います。