Visual Basic.NET - Almacenar Imagenes en Sqlite con vb.net

Imports System.Data.SQLite

Imports System.IO

Public Class Form1

    'Objeto Coneccion

    'La base de datos tiene por nombre AlmacenDeImagenes.sqlite

    'La DB tiene la siguiente estructura:

    'create table Imagenes(nombreImagen varchar(255) NOT NULL, dataImagen image Not NULL)

    Private mDB As New SQLiteConnection("data source=AlmacenDeImagenes.sqlite;version=3;")

    Private mOpenFile As System.Windows.Forms.OpenFileDialog

    'Evento Boton: btnImportar

    Private Sub btnImportar_Click(sender As Object, e As EventArgs) Handles btnImportar.Click

        mOpenFile = New System.Windows.Forms.OpenFileDialog

        'Tu puedes aceptar lo que se te de la gana...

        mOpenFile.Filter = "Jpg Files (*.jpg)|*.jpg|Jpeg Files (*.jpeg)|*.jpg|Png Files (*.png)|*.png"

        Dim Resultado As DialogResult = mOpenFile.ShowDialog()

        If Resultado = DialogResult.OK Then

            Dim fs As New IO.FileStream(mOpenFile.FileName, IO.FileMode.Open)

            Dim br As New IO.BinaryReader(fs)

            Dim byteArea As Byte() = br.ReadBytes(CInt(fs.Length))

            br.Close()

            Dim ms As New IO.MemoryStream(byteArea)

            ImportarImagen(mOpenFile.FileName, byteArea)

        Else

            MessageBox.Show("Operacion cancelada...")

        End If

    End Sub

    Private Sub ImportarImagen(ByVal mFileName As String, ByVal mData As Byte())

        Dim sSQL As String = "insert into Imagenes(nombreImagen, dataImagen) values(@FileName, @Data)"

        Using mCommand As New SQLiteCommand(sSQL, mDB)

            mCommand.Parameters.AddWithValue("@FileName", mFileName)

            mCommand.Parameters.AddWithValue("@Data", mData)

            mCommand.ExecuteNonQuery()

            MessageBox.Show("Ya esta!")

        End Using

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Abrir Base de Datos

        If mDB.State = ConnectionState.Closed Then

            mDB.Open()

        End If

    End Sub

End Class