DataRepeater - Display Image

Dim bs As New BindingSource
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim conn As New SqlConnection("Server = .\SQLExpress;Database = NorthWind; Integrated Security = SSPI;") 
    Dim dt As New DataTable

    Dim da As New SqlDataAdapter("Select * from Categories", conn) 
    da.Fill(dt) 
    bs.DataSource = dt

    DataRepeater1.DataSource = bs 
End Sub

Private Function GetBitmap(ByVal Pic() As Byte) As Bitmap 
    Dim ms As New System.IO.MemoryStream 
    Dim bm As Bitmap 
    ms.Write(Pic, 78, Pic.Length - 78) 
    bm = New Bitmap(ms) 
    Return bm 
End Function

Private Sub DataRepeater1_DrawItem(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.PowerPacks.DataRepeaterItemEventArgs) Handles DataRepeater1.DrawItem 
    Dim currItem As DataRowView = bs.Item(e.DataRepeaterItem.ItemIndex)

    DirectCast(e.DataRepeaterItem.Controls("pbCategory"), PictureBox).Image = GetBitmap(DirectCast(currItem.Item("Picture"), Byte())) 
    DirectCast(e.DataRepeaterItem.Controls("lblName"), Label).Text = currItem.Item("CategoryName").ToString 
End Sub

DirectCast(e.DataRepeaterItem.Controls("pbCategory"), PictureBox).Image = GetBitmap(DirectCast(currItem.Item("Picture"), Byte()))"