我定义了。。。但是说缓冲区不能为空啊。。要不就是说未将对象引用到实例！！

我不知道怎么办了！！！

不好意思，漏了一句，下面的改正了

Dim cn As New SqlConnection(connstr)
        Dim cmd As New SqlCommand("SELECT * FROM picture where dh='" & Me.Text.Substring(3) & "'", cn)
        da = New SqlDataAdapter(cmd)
        da.Fill(ds, "photo")   ’上面的你应该都看的懂的
        Dim c As Integer = ds.Tables("photo").Rows.Count
        If c > 0 Then   ’ 如果存在图片
  Dim bytBLOBData() As Byte = ds.Tables("photo").Rows(0)("pic")   
’创建图片的一个二进制数据，我需要的是同个编号的第一张图片          
Dim stmBLOBData As New MemoryStream(bytBLOBData)
'再创建一个可以支持存储区为内存的流
        PictureBox1.Image = Image.FromStream(stmBLOBData)
'从指定的流创建image对象，赋给PictureBox1
        End If
   bm = Me.BindingContext(ds, "photo") '这句是为前一张，后一张的功能做的设定
        CheckBm()