CiaoRagazzi ho un problema con una query e una stampa su datareport.

Ho due tabelle ANAGRAFICA e TRATTAMENTI

Nella prima ho l'elenco ei clienti, nella seconda ho l'elenco dei trattamenti che i clienti fanno. I Due database sono relazionati correttamente e infatti facendo una query direttamente in access, ottengo una tabella che mi da l'interpolazione dei dati.

Tramite VB6 ho creato un datareport che mi dovrebbe stampare la scheda anagrafica del mio cliente e sotto tutti i trattamenti.
Ho inserito questo codice:
codice:
Dim cn_db As ADODB.Connection
Dim rs_db As ADODB.Recordset
Dim dbfile As String
Dim mSQL As String

' nome database
dbfile = "alfazer.mdb"

' apre la connessione al database
Set cn_db = New ADODB.Connection
        cn_db.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbfile & ";" & _
        "Persist Security Info=False"
        cn_db.Open

' seleziona i dati
    mSQL = "SELECT * FROM ANAGRAFICA WHERE COGNOME='" & Form1.List1 & "'"

' prende i dati
    Set rs_db = cn_db.Execute(mSQL, , adCmdText)

foto = rs_db("foto")

'Porta il Grafico nella pagina di stampa:
        With DataReport1.Sections("Section1")
        
'Imposta le dimensioni dell'immagine:
            With .Controls("Image1")
                .Height = 2190
                .Top = 2940
                .Left = 6360
                .Width = 2100
                .PictureAlignment = rptPACenter
                .SizeMode = 2
                Set .Picture = LoadPicture(foto)
                
                'C:\Documents and Settings\Ale\Documenti\Immagini\firma.jpg
            End With
        End With
' manda i dati al report
    Set DataReport1.DataSource = rs_db
    DataReport1.WindowState = vbMaximized
    DataReport1.Show vbModal

' chiude il database
    rs_db.Close
    cn_db.Close
    Set rs_db = Nothing
    Set cn_db = Nothing

End Sub

E giustamente mi stampa la scheda anagrafica.
Come faccio ora a dirgli che nello stesso report voglio tutti i trattamenti che ha fatto questo cliente. Mi spiego meglio, fare una SQL di filtro mi sembra ovvio e pensavo di farla così:

SQL = "SELECT * FROM TRATTAMENTI WHERE COGNOME="COGNOME""


il mio problema è: all'interno di quel codice che ora uso come posso inserire una nuova SQL e mandare i dati al datareport?