Ho provato come mi hai detto mi da errore:
Mi dice Necessario oggetto
e si blocca qui:

With RptRiepVal.Sections("Section1")

il nome della sezione è giusta, il nome dell'oggetto image1 è giusto, non vorrei aver messo il codice che mi hai dato in una posizione sbagliata


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)



'Porta il Grafico nella pagina di stampa:
        With RptRiepVal.Sections("Section1") <---------------errore
'Imposta le dimensioni dell'immagine:
            With .Controls("Image1")
                .Height = 4050
                .Left = 0
                .Top = 10
                .Width = 11390
                .PictureAlignment = rptPACenter
                .SizeMode = 2
                Set .Picture = LoadPicture("C:\foto.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