مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات

كود :
If IsNothing(PictureBox2.Image) = False Then

            Dim picStream2 As New MemoryStream



            PictureBox2.Image.Save(picStream2, ImageFormat.Gif)



            Dim PicByte2 As Byte() = picStream2.ToArray

            cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte2 As New Byte

            cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If

















        If IsNothing(PictureBox3.Image) = False Then

            Dim picStream3 As New MemoryStream



            PictureBox3.Image.Save(picStream3, ImageFormat.Gif)



            Dim PicByte3 As Byte() = picStream3.ToArray

            cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte3 As New Byte

            cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If







        If IsNothing(PictureBox4.Image) = False Then

            Dim picStream4 As New MemoryStream



            PictureBox4.Image.Save(picStream4, ImageFormat.Gif)



            Dim PicByte4 As Byte() = picStream4.ToArray

            cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte4 As New Byte

            cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If











        If IsNothing(PictureBox5.Image) = False Then

            Dim picStream5 As New MemoryStream



            PictureBox5.Image.Save(picStream5, ImageFormat.Gif)



            Dim PicByte5 As Byte() = picStream5.ToArray

            cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte5 As New Byte

            cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If













        If IsNothing(PictureBox6.Image) = False Then

            Dim picStream6 As New MemoryStream



            PictureBox6.Image.Save(picStream6, ImageFormat.Gif)



            Dim PicByte6 As Byte() = picStream6.ToArray

            cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte6 As New Byte

            cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If











        If IsNothing(PictureBox7.Image) = False Then

            Dim picStream7 As New MemoryStream



            PictureBox7.Image.Save(picStream7, ImageFormat.Gif)



            Dim PicByte7 As Byte() = picStream7.ToArray

            cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte7 As New Byte

            cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If











        If IsNothing(PictureBox8.Image) = False Then

            Dim picStream8 As New MemoryStream



            PictureBox8.Image.Save(picStream8, ImageFormat.Gif)



            Dim PicByte8 As Byte() = picStream8.ToArray

            cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte8 As New Byte

            cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If













        If IsNothing(PictureBox9.Image) = False Then

            Dim picStream9 As New MemoryStream



            PictureBox9.Image.Save(picStream9, ImageFormat.Gif)



            Dim PicByte9 As Byte() = picStream9.ToArray

            cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte9 As New Byte

            cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If

















        If IsNothing(PictureBox10.Image) = False Then

            Dim picStream10 As New MemoryStream



            PictureBox10.Image.Save(picStream10, ImageFormat.Gif)



            Dim PicByte10 As Byte() = picStream10.ToArray

            cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte10 As New Byte

            cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If















        If IsNothing(PictureBox11.Image) = False Then

            Dim picStream11 As New MemoryStream



            PictureBox11.Image.Save(picStream11, ImageFormat.Gif)



            Dim PicByte11 As Byte() = picStream11.ToArray

            cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte11 As New Byte

            cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If









        If IsNothing(PictureBox12.Image) = False Then

            Dim picStream12 As New MemoryStream



            PictureBox12.Image.Save(picStream12, ImageFormat.Gif)



            Dim PicByte12 As Byte() = picStream12.ToArray

            cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte12 As New Byte

            cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If







        If IsNothing(PictureBox13.Image) = False Then

            Dim picStream13 As New MemoryStream



            PictureBox13.Image.Save(picStream13, ImageFormat.Gif)



            Dim PicByte13 As Byte() = picStream13.ToArray

            cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '==================================

        Else

            Dim PicByte13 As New Byte

            cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13

            '===================================

            If Conn.State = ConnectionState.Closed Then

                Conn.Open()

            End If

            cm.ExecuteNonQuery()

            cm.Parameters.Clear()

            '===================================

        End If