可用SQL语言进程序:
dim cn as adodb.connection
dim rs as adodb.recordset
dim sqlstr as string
set cn=new adodb.connection
cn.connectionstring="......"
cn.open
set rs=new adodb.recordset
sqlstr="select * from database1,database2 where database1.field(条件)and
database2.field(条件)"
rs.open sqlstr,cn
上面的SQL语句不知道合不合你的要求
你不防试试看行行吧