Хранение в БД информации о картинках, предназначенных для вывода на форму

Picture1.Picture = LoadResPicture(101, vbResBitmap)

'Загрузить картинку из базы данных  
    Dim connection As New SqlConnection("Не забудьте указать строку соединения с БД") 
    Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)  
    connection.Open()      
    Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())  
       
    connection.Close()  
       
    Dim picture As Image = Nothing
       
    Using stream As New IO.MemoryStream(pictureData)  
     picture = Image.FromStream(stream) 
    End Using  
       
    'Сохранить картинку в БД 
    Dim connection As New SqlConnection("Не забудьте указать строку соединения с БД") 
    Dim command As New SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)  
       
    Using picture As Image = Image.FromFile("Путь к файлу картинки") 
     Using stream As New IO.MemoryStream 
     picture.Save(stream, Imaging.ImageFormat.Jpeg)  
     command.Parameters.Add("@Picture", SqlDbType.VarBinary).Value = stream.GetBuffer()  
     End Using  
    End Using  
    connection.Open() 
    command.ExecuteNonQ