创建不同的数据库连接就可以了!
比如
Dim conn,connstr,conn2,Connstr2,db,db1
db='数据库名1'
Db1='数据库名2'
'数据库连接一
设置conn=服务器CreateObject('Adodb .连接)
康恩斯特='提供商=微软.喷气机。OLEDB.4.0数据源=' ChkMapPath(db)
conn.open Connstr
'数据库连接2
设置conn2=服务器CreateObject('Adodb .连接)
Connstr2='Provider=Microsoft .喷气机。OLEDB.4.0数据源=' ChkMapPath(db1)
连接2 .打开连接2
然后分别调用这两个数据库连接就可以了、