insertion d'image

salut aidez moi a trouver une solution

Dim cmd AsNew OleDbCommand("insert into personnels(Mle,photo)values('" & ComboBox1.Text & "','" & picturebox1.Image  & "')", cn)

Try

Try

cmd.ExecuteNonQuery()

MsgBox(ex.Message)

slt
tout d'abord si vous avez donne ta base le champs de l'image de type image voila la solution :
1 ere :
la declaration 
-----------------------------------------
Imports System.IO
Imports System.IO.MemoryStream
-----------------------------------------
 Dim img_bytes As Byte()
    Dim img As Drawing.Bitmap
    Dim com As New SqlCommand
    Dim dr As SqlDataReader
--------------------------------
l'evenement : pour l'insertion
----------------------------------------------
Dim mystream As FileStream
 mystream = File.Open("chemain de votre image", FileMode.Open, FileAccess.Read)
        ReDim img_bytes(CInt(mystream.Length) - 1)
        mystream.Read(img_bytes, 0, CInt(mystream.Length) - 1) 'lecture des bytes
        mystream.Close()
        com.Connection = con
        Try
            con.Open()
            com.CommandText = "insert into image(image) values(@parm)"
            Dim parm As SqlParameter = New SqlParameter("@parm", SqlDbType.Image)
            parm.Value = img_bytes
            com.Parameters.Add(parm)
            com.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MsgBox( ex.Message)
        End Try
--------------------------------
l'evenement : pour la lecture
----------------------------------------------
 com.Connection = con
        Try
            con.Open()
            com.CommandText = "select * from image where id='" & id & "'"
            dr = com.ExecuteReader
            dr.Read()
            img_bytes = CType(dr("image"), Byte())
            img = New Drawing.Bitmap(New System.IO.MemoryStream(img_bytes))

pour que votre image doit etre visible il faut l'enregistrer dans un tompo d'image :

            img.Save("chemain pour l'enregistrement de l'image depuis la BD")
           picturebox1.Image= "chemain pour l'enregistrement de l'image depuis la BD"
            con.Close()
        Catch ex As Exception
            MsgBox( ex.Message)
        End Try