3 sql queries σε ένα recordset

Από {doraa}

Dim RS, sql ,sql1, sql2
set RS = Server.CreateObject("ADODB.Recordset")
keyword = request("keyword")
sql = "select on_sp, ep_sp, on_ex1, ep_ex1, on_ex2, ep_ex2 from spoudastes, ex_epitroph where spoudastes.id_ex=ex_epitroph.id_ex_ep; "
sql1="select on_sp, ep_sp, thema from spoudastes, diplwmatikh where diplwmatikh.ID_diplwm=spoudastes.ID_dipl;"
sql2="select thema, epivlepwn_kath.ep_kath, epivlepwn_kath.on_kath from diplwmatikh, epivlepwn_kath where diplwmatikh.id_kath=epivlepwn_kath.id_kath"
RS.Open sql, sql1, sql2, conn, adOpenStatic, adLockReadOnly, adCmdText

Πως μπορώ να κάνω αυτό το script να λειτουργήσει;
Ή αν υπάρχει κάποιος άλλος τρόπος να γίνει αυτό.
Ευχαριστώ.