with a function:
Public Function GetPicture(Num_pic As Integer)
' get picture from MSysResources table
GetPicture = DLookup("[Name]", "[MSysResources]", "[id] = " & Num_pic & "")
End Function
on a form code:
Me.ImgBox3.picture = GetPicture(22) ' the ID number of the image (wastebasket.png)