求一用vb实现access数据库的跨表查询和跨数据库表间查询的例子

本人在学习vb，需要用vb实现access数据库的跨表查询和跨数据库表间查询的实例，希望高手指点.因为本人等级太低分数没那么多，但还是请高手帮忙 --------------------编程问答-------------------- select 表1.字段，表2.字段，表3.字段 from （表1 inner join 表2 on 表1.字段=表2.字段） inner join 表3 on…… --------------------编程问答-------------------- ACCESS本身就有跨数据库整理分析数据的能力，他的ODBC库就可以实现这一功能，在VB6.0里我们往往用ACCESS的ODBC库工具来做连接池，实现跨数据库跨服务器数据查询处理，下面简单举个例子：
有两个数据库，一个是本地的ACCESS.mdb，一个是在IP：192.168.1.1上的管理系统。本地数据库有个本地配置表，要去匹配远程的服务器配置表，做个大型的数据交互，打印报表。该怎么做，用ODBC功能太简单，一页代码足够了,把ACCESS保存到相对路径：
Private Sub 打印预览_Click()
Dim a, b AS String
Adodc1.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + App.Path  + "/ACCESS.mdb"
a="(Select * From 本地配置表) As 查询1"
b="(Select * From 远程配置表 IN [ODBC][ODBC;Driver={SQL Server};Server=192.168.1.1;uid=sa;pwd=1111;DataBase=管理系统]) AS 查询2"
          '---------核心代码在这，轻松地就调用了ODBC，再去拼接SQL，做成一个函数放类库就很简单了，这里不多写
Adodc1.RcordSource="Select * From " + a + " Inner Join " + b + " On 查询1.字段名=查询2.字段名 Where 条件"
Adodc1.Refresh
         '-----------已经查到了跨数据库数据联合表
......
         '---------把数据传给报表打印出来
End Sub
这样是不是很简单，拼接字符串确实很烦琐，那你就写一个类，要用到的时候直接调用类函数就好了

补充：VB ,  数据库(包含打印，安装，报表)