Dim images2 As Image = Image.FromFile(directory & filename & extension)
                                                Dim mstream As New _
                                                  System.IO.MemoryStream()
                                                images2.Save(mstream, _
                                                System.Drawing.Imaging.ImageFor_
                                                mat.Jpeg)
                                                Dim arrImage() As Byte = _
                                                mstream.GetBuffer()
                                                mstream.Close()

Dim fileStream As New System.IO.MemoryStream()
                                                Dim byteImg As Byte()
                                                byteImg = File.ReadAllBytes( _
                                                  directory & filename & _
                                                  extension)
                                                fileStream.Write(byteImg, 0, _
                                                byteImg.Length)
                                                fileStream.Close()

mysql_statement("INSERT INTO cam_attachements (" & _
  "`msg_id`,`user_id`,`attachement`,`extension`,`storage_datetime`,`fileHeader" & _
  ",`stream`) VALUES ('" & message_id & "','1','" & filename & "','" & _
  extension & "',UTC_TIMESTAMP(),'" & header & "','" & byteImg.ToString & "')")

Public Function ByteArrayToString(ByRef Barr() As Byte) As String
        Return Convert.ToBase64String(Barr)
    End Function

Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String
        Dim enc As System.Text.Encoding = System.Text.Encoding.Default
 
        Return enc.GetString(Barr)
    End Function