'Convert Image View to Byte Buffer
Dim MyBuffer1() As Byte 'declares an empty array
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(10000)
s_image1.GetImage.WriteToStream(OutputStream1)
MyBuffer1 = OutputStream1.ToBytesArray
OutputStream1.Close
' Set Record to update
'Dim MySearch As String
'MySearch = s_sellcode.Text
'Create Query Statement
Dim strSQL As String = "INSERT INTO qualas_stock SET s_sellcode = '" & s_sellcode.Text & "', s_shortdescription = 'AAA', s_longdescription = 'bbb', s_type = 'ccc', s_sunit = '1', s_unitdescription = 'eee', s_image1 = ?;"
sql1.ExecNonQuery2(strSQL, Array As Object(MyBuffer1))