Private Sub Tab1BindingSource_PositionChanged(ByVal sender As Object, ByVal e _
   As System.EventArgs) _
    Handles Tab1BindingSource.PositionChanged
        If PictureBox1.Image IsNot Nothing Then
            PictureBox1.Image.Dispose()
        End If
        Dim val As Object = CType(Me.Tab1BindingSource.Current, DataRowView)( _
          "Bild")
        If val IsNot DBNull.Value Then
            Dim img() As Byte = CType(val, Byte())
            Dim ms As New IO.MemoryStream(img)
            PictureBox1.Image = Image.FromStream(ms)
        End If
    End Sub

VB@rchiv its the Best