i got a database and picture problem?

ok i got the multiple pictures to work but i am getting them one late like the first picture is the second to show and second is third and so on any ideas? And it hs the same problem going backwards.
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Select Case Trim(lblname.Caption)
Case Is = "#1 Bear"
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\#1.jpg")
Case Is = "1997 Employee Bear"
Picture1.Picture = LoadPicture("")
Case Is = "1997 Holiday Teddy"
'1997 Holiday Teddy Picture
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\97teddy3_small.jpg")
Case Is = "1998 Holiday Teddy"
'1998 Holiday Teddy Picture
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\98teddy_small.jpg")
Case Is = "1999 Holiday Teddy"
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\1999holiday.gif")
End Select
End Sub

The VALIDATE event happens before you move to your next record, so this might explain why you are getting them 1 late. Try putting your code into the Data1_Reposition() event instead.

Tom