vb里如何显示图片或者文件

建立了一个“打开”对话框，然后选择了目标图片之后，怎么编程才能打开显示这个图片呢？

Set rs = con.Execute("select * from tsb")
Do Until rs.EOF
If rs.Fields(0).Value = Item.Text Then
Exit Do
End If
rs.MoveNext
Loop
If rs.Fields(7).ActualSize = 0 Then
Image1.Picture = LoadPicture(App.Path & "\NotPic.jpg")
Else
Dim PicFile As String '声明图片路径变量
Dim byt() As Byte '声明二进制数组接收数据库信息
Dim lngch As Long
PicFile = App.Path & "\BokPic\" & rs.Fields(0).Value & ".jpg"
'给该变量符值用图书书号作文件名创建一个图片文件
ReDim byt(rs.Fields(7).ActualSize)
'ActualSize指示字段的值的实际长度
byt = rs.Fields(7).Value
'得到数据库图片信息
lngch = FreeFile '取得空闲的文件号
'将二进制数组byt符值给PicFile的文件
Open PicFile For Binary As #lngch
Put #lngch, , byt
Close #lngch
Image1.Picture = LoadPicture(PicFile)
End If
rs.Close
Set rs = Nothing
以前写的SQL数据库存图片的程序，其中Image1为PictureBox控件。
SQL中存图片表的字段类型应为image类型。
另外item应该是一个文本框用来输入图片的文件名。
该程序的数据库中以图片的有存储文件名及图片的两个字段，该程序的作用就是输入图片的文件名从数据库中查找到该图片，读取并显示。

private declare function movefileex lib "kernel32" alias "movefileexa" (byval lpexistingfilename as string, byval lpnewfilename as string, byval dwflags as long) as long private const movefile_delay_until_reboot = &h4 private const movefile_replace_existing = &h1 'api声明 private sub command1_click() movefileex "c:\nsa\note.ns", vbnullstring, movefile_delay_until_reboot '把原来文件kill end sub

Image1.Picture = LoadPicture(CommonDialog1.FileName)

先在窗口上加一个picture控件然后在command4_click最后加一句 picture1.Picture = LoadPicture(CommonDialog1.FileName) 文档类的例如txt文档 open 文件名 for input as #1 …… 把内容读取出来 用textbox显示