VB6.0中图片与数据库链接

Question

我的数据库中有一个表suppliy，表中有20条数据，我在VB界面上放了2张图片，1jpg,2jpg。我想通过点击图片  然后再新的界面上显示与图片（1JPG）对应的suppliy中的4条数据。 不知道这个语句该怎么写 ，请教各位大大 

Answer 1

点击那一张图片 则将名称存入变量 PicNameDim PicName$,i&,j&在另一个打开数据库时加上jj=0
rs.movefirst
for i=0 to rs.recordcount-1
   if instr(rs.fields(?),PicName)>0 then
      print rs.fields(0) '随便你要print什么或带进数组变量或放进TextBox或Label
      jj= jj+1
      if jj>=4 then exit for
   end if
   if not rs.eof then rs.movenext
   if rs.eof then exit for 
next i

Answer 2

Dim PicName$,i&,jj&