*thisform.text1.visible=.f. thisform.text1.value=0 IF !EOF() thisform.text1.value=thisform.text1.value+1 thisform.text2.value=nam Thisform.Image1.Picture = "images\"+alltrim(str(thisform.text1.value))+".jpg" SKIP ELSE skip -1 ENDIF IF !EOF() skip -1 Thisform.Image1.Picture = "images\"+alltrim(str(thisform.text1.value))+".jpg" thisform.text2.value=nam ENDIFany idea