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

PHP كود :
Try
           
            Dim ms As New MemoryStream
            Dim arrimage() As Byte = {0}
            If (Pic.Image IsNot Nothing) Then
                Pic.Image.Save(ms, Pic.Image.RawFormat)
                arrimage = ms.GetBuffer
                ms.Close()
            End If
            Dim strsql As String
            Dim acscmd As New SqlCommand
            '   Dim con As New SqlConnection

            Dim con As New SqlConnection
            If IO.File.Exists(Application.StartupPath & "\DATABASE\bak2019.mdf") Then
                If My.Settings.constr = "" Then
                    con = New SqlConnection(("Data source=.\SQLEXPRESS;AttachDbFilename= " & Application.StartupPath & "\DATABASE\bak2019.mdf;Integrated Security=True;User Instance=True"))

                Else
                    If IO.File.Exists(My.Settings.constr) Then
                        con = New SqlConnection(("Data source=.\SQLEXPRESS;AttachDbFilename= " & Application.StartupPath & "\DATABASE\bak2019.mdf;Integrated Security=True;User Instance=True"))

                    Else
                        If MessageBox.Show("هل تريد تحديد مسار قاعدة البيانات", "خطأ قاعدة البيانات غير موجودة", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = DialogResult.Yes Then

                            Database.Show()
                        Else
                            MessageBox.Show("سيتم استخدام قاعدة البيانات الحالية ", "تنويه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                            con = New SqlConnection(("Data source=.\SQLEXPRESS;AttachDbFilename= " & Application.StartupPath & "\DATABASE\bak2019.mdf;Integrated Security=True;User Instance=True"))

                        End If
                    End If


                End If

            Else
                MessageBox.Show("قاعدة البيانات غير موجودة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                '  Exit Function
            End If
           
            strsql = "update labdetails set itmnme=@itmnme,itmspecial=@itmspecial,itmadress=@itmadress,itmphone=@itmphone,itmtime=@itmtime,itmlogo=@itmlogo,itmprint=@itmprint,itmnameenglish=@itmnameenglish,itmspecialenglish=@itmspecialenglish,signature1=@signature1,signature2=@signature2"

             acscmd.CommandText = strsql
            acscmd.Connection = con
            con.Open()

            acscmd.Parameters.AddWithValue("@itmnme", txtitmname.Text)
            acscmd.Parameters.AddWithValue("@itmspecial", txtspeciality.Text)
            acscmd.Parameters.AddWithValue("@itmadress", txtadress.Text)
            acscmd.Parameters.AddWithValue("@itmphone", txtphone.Text)
            acscmd.Parameters.AddWithValue("@itmtime", txttime.Text)
            acscmd.Parameters.AddWithValue("@itmlogo", IIf(Pic.Image IsNot Nothing, arrimage, DBNull.Value))
            
            acscmd.Parameters.AddWithValue("@itmprint", printchck.Checked)
            acscmd.Parameters.AddWithValue("@itmnameenglish", Txtitm.Text)
            acscmd.Parameters.AddWithValue("@itmspecialenglish", txtspecial.Text)
            acscmd.Parameters.AddWithValue("@signature1", txtsign1.Text)
            acscmd.Parameters.AddWithValue("@signature2", txtsign2.Text)
          

            acscmd.ExecuteNonQuery()
            acscmd.Dispose()
            con.Close()
            con.Dispose()
            Me.Close()
           

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try