retrive image from ms access database

[jehan]

Hi,

I am trying to extract image from database into picture box my code is

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        cnn = New OleDbConnection(strCn)

        Dim stream As New MemoryStream()
        cnn.Open()
        Dim command As New OleDbCommand("select img from llr where llrno = '" & TextBox1.Text & "'", cnn)
        Dim image As Byte() = DirectCast(command.ExecuteScalar(), Byte())
        stream.Write(image, 0, image.Length)

        Dim bitmap As New Bitmap(stream)
        picBlob.Image = bitmap
        cnn.Close()
    End Sub

but i am getting error "Parameter is not valid" the line "Dim bitmap As New Bitmap(stream)"

Plz help

[Scotty2002]

Public Class Form1

    Private Sub btnGetPix_Click(sender As System.Object, e As System.EventArgs) Handles btnGetPix.Click
        picPhoto.ImageLocation = txtUrlPictures.Text
    End Sub

  
    Private Sub rdoNormal_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rdoNormal.CheckedChanged
        picPhoto.SizeMode = PictureBoxSizeMode.Normal
    End Sub

    Private Sub rdoStretchImage_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rdoStretchImage.CheckedChanged
        picPhoto.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub

    Private Sub rdoAutoSize_CheckedChanged(sender As System.Object, e As System.EventArgs)
        picPhoto.SizeMode = PictureBoxSizeMode.AutoSize
    End Sub

    Private Sub rdoCenterImage_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rdoCenterImage.CheckedChanged
        picPhoto.SizeMode = PictureBoxSizeMode.CenterImage
    End Sub

    Private Sub rdoZoom_CheckedChanged(sender As System.Object, e As System.EventArgs)
        picPhoto.SizeMode = PictureBoxSizeMode.Zoom
    End Sub
 
End Class

I would post the program on here but they did not have any attachment on here sorry about that.