[mohamedgadain61]

الله يعطيك الف عافيه اخي الفاضل 

ممكن مساعدة في كود  ال Update  لايعمل

  If (PictureBox1.Image Is Nothing) Then
            MsgBox("قم بإدراج الصورة أولاً", 64, "Program Name")
            Exit Sub
        End If

        If TXTID.Text = "" Then
            MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
            TXTID.Focus()
            Exit Sub
        End If
        If TextBox1.Text = "" Then
            MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
            TextBox1.Focus()
            Exit Sub
        End If
        If TextBox2.Text = "" Then
            MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
            TextBox2.Focus()
            Exit Sub
        End If
        If TextBox3.Text = "" Then
            MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
            TextBox3.Focus()
            Exit Sub
        End If

        Dim ms As New System.IO.MemoryStream
        PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
        Dim picbyte() As Byte = ms.GetBuffer

        Using Cmd As New OleDbCommand("Update Table1 Set car_kind=@car_kind, car_color=@car_color, car_model=@car_model, car_image=@car_image Where car_id=@car_id", conn)

            conn.Open()

            Cmd.Parameters.AddWithValue("@car_id", TXTID.Text)
            Cmd.Parameters.AddWithValue("@car_kind", TextBox1.Text)
            Cmd.Parameters.AddWithValue("@car_color", TextBox2.Text)
            Cmd.Parameters.AddWithValue("@car_model", TextBox3.Text)
            Cmd.Parameters.AddWithValue("@car_image", picbyte)

            Cmd.ExecuteNonQuery()

            Cmd.Dispose()
            conn.Close()

            MsgBox("تم التعديل", 64, "Program Name")

            Deltxt()

        End Using