Loading Images Using Timer

I would like to load images from a string which is located in a database, I have the following code but it continually refreshes the same image on the form, I would like the images to load as defined by the timer (2 secs), and once they get to the end, they start all over again, not end. Private Sub tmrSlide_Timer() Set rs = db.OpenRecordset("tblCars") While Not rs.EOF imgSlide.Picture = LoadPicture(rs!Image1) rs.MoveNext Wend End Sub