شما تو بانکتون یک فیلد از نوعtext به اسم ax یا هراسم دیگه ای درست کنید بعد در فرمتون یکcommand dialog و یک textbox وهمینطور یک button و یک imagebox بذارید .
texbox رو به بانکتون و فیلد ax ارتباط بدید بعد خاصیت streach در imagebox رو برابر true قرار بدید و بعد در button کد زیر رو کپی کنید
هر جا در کد cmd دیدید یعنیcommand dialog
cmd.Filter = "All Graphic Formats|*.jpg;*.bmp;*.gif|jpg|*.jpg|GIF|*.gif|BMP| *.bmp"
cmd.ShowOpen
Text1.Text = cmd.FileName
Image1.Picture = LoadPicture(cmd.FileName)
و برای form_load کد زیر را اظافه کنید:
Image1.Picture = LoadPicture(Text1.Text)
برای دکمه next :
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveFirst
Else
Adodc1.Recordset.MoveNext
End If
Image1.Picture = LoadPicture(Text1.Text)
برای دکمه previous هم که مشخصه.
اگه خواستید برنام رو هم براتون می زارم.