i need to print some kind of ID Cards with diferents images (photos) on them, i'm using this code, but the same image is displayed on every record:

Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & RutaBaseDatos & ";" & _
"Persist Security Info=False"
conn.Open

' Open the Recordset.
Set rs = conn.Execute("select * from alumnos", , adCmdText)

' Connect the Recordset to the DataReport.
Set DataReport1.DataSource = rs
Foto = rs.Fields("NControl")
Set DataReport1.Sections("Detalle").Controls("Foto").Picture = LoadPicture(RutaFotos & Foto & ".bmp")

DataReport1.WindowState = vbMaximized
DataReport1.Show vbModal

rs.Close
conn.Close


any idea how to put diferent images, using paths.