Ciao ragazzi

devo stampare su un report i valori presenti su un database, non vorrei utilizzare data enviroment ho provato con questo codice che ho trovato ma mi da errore , cosa devo fare grazie
codice:

Private Sub DataReport_Initialize()

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"

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

' manda i dati al report
    Set DataReport2.DataSource = rs_db     <-------si blocca qui
    DataReport2.WindowState = vbMaximized
    DataReport2.Show vbModal

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

End Sub
Grazie