'get ImageView bitmap and write to database
Dim bmp As Bitmap = imvImage.Bitmap
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
bmp.WriteToStream(OutputStream1, 90, "JPEG")
Dim Buffer() As Byte = OutputStream1.ToBytesArray
oSQL.ExecNonQuery2("INSERT INTO tbl_Name VALUES (NULL, ?, ?)", Array As Object(title, Buffer ))
'get database image/blob and load to bitmap
Dim Buffer() As Byte = res.GetBlob("Image") 'res = ResultSet
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim Bmp As Bitmap
Bmp.Initialize2(InputStream1)
InputStream1.Close
imvImage.Bitmap = Bmp