Plusieurs dans un datareport

Bonjour,
Je suis sur un projet de gestion de pelerin. Et je développe sous Visual Basic 6.0. Dans un DataReport, j'arrive à afficher la photo d'un individu. Mais lorsque je veux afficher une série de photos dans le Datareport, je constate que la même photo apparaît sur tous les états générés par le programme.
Voici les codes

Sub Afficher_Formulaire()
Dim Cnx As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Chemin As String
Dim Sql As String
Dim Col, Lig, I As Integer
Dim Elements As ListItem


Chemin = LireCheminPelerin

Set Cnx = New ADODB.Connection
Cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Chemin & "; User Id=Admin;Password="

Sql = "SELECT * FROM T_PELERINS_ListePhoto Where T_PELERINS_ListePhoto.Ins=23 "
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Rst.Open Sql, Cnx, adOpenStatic, adLockOptimistic

Set PhotoListe.DataSource = Rst
'Set PhotoListe.DataSource = Rst
Rst.MoveFirst
'While Rst.EOF = False
'PhotoListe.DataMember = ""
PhotoListe.Hide
PhotoListe.Sections("Section1").Controls("Text1").DataField = Rst(0).Name
PhotoListe.Sections("Section1").Controls("Text2").DataField = Rst(1).Name
PhotoListe.Sections("Section1").Controls("Text3").DataField = Rst(2).Name
PhotoListe.Sections("Section1").Controls("Text4").DataField = Rst(3).Name
Set PhotoListe.Sections("Section1").Controls("Image1").Picture = LoadPicture("C:\JulaPelerins\Photos\" & Rst.Fields(4))


'Wend
PhotoListe.Refresh
PhotoListe.Show
End Sub