Ciao ragazzi

sono davvero disperato, devo stampare su un datareport senza dataEnviroment e non riesco a passare i dati presi da due tabelle diverse sul resport come posso fare??? Questo è il codice che inserisco, se tolgo la seconda SQL funziona ma con i soli dati della prima tabella se metto la seconda sql si blocca.....

codice:
 
' apro la connessione al database

' seleziono i dati dalla prima tabella
    mSQL = "SELECT * FROM ANAGRAFICA WHERE id=" & IDLIST1 & ""
    Set rs_db = cn_db.Execute(mSQL, , adCmdText)

' seconda query

SQL = "SELECT * FROM SEDUTE WHERE IDCLIENTE =" & IDLIST1 & ""
Set rs_db = CreateObject("ADODB.Recordset")
rs_db.Open SQL, cn_db, 3, 1

Do Until rs_db.EOF


data = rs_db("data")
trattamento = rs_db("trattamento")

' manda i dati al report

    Set DataReport1.DataSource = rs_db
    DataReport1.WindowState = vbMaximized
    DataReport1.Show vbModal


  rs_db.MoveNext
Loop


' chiudo il database