十万火急！！！怎样从SQL SERVER中取IMAGE数据放到PICTUREBOX中？？？

Question

有这样的处理方式：再放一个Adodc控件，将PictureBox的DataSource属性设为此Adodc控件，DataField填写上你的Image字段的名称，然后在程序中设置Adodc控件的Recordset属性为你查询所返回的记录集，这样应该就可以了。
不知道是否还有更好的方法。关注。

Answer 1

Private Sub Command1_Click()
    Dim cn As Object
    Dim rs As Object
    Set cn = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    cn.open "dsn=nwt;uid=sa"
    Set rs = cn.execute("select Image_File from pr_image")
    Set Me.Picture1.DataSource = rs
    Me.Picture1.DataField = "Image_File"
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub