dim adocn as new adodb.connection
dim rst1 as new adodb.recordset
dim rst2 as new adodb.recordset
dim rst3 as new adodb.recordset
adocn.connectionstring="-------------"
adocn.open
rst1.open "select * from tablename1 where ...",adocn,,,adcmdtext
rst2.open "select * from tablename2 where ...",adocn,,,adcmdtext
rst3.open "select * from tablename3 where ...",adocn,,,adcmdtext
......
rst1.close
rst2.close
rst3.close
adocn.close
set ...=nothing