Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) _
    Handles BindingNavigatorAddNewItem.Click
 
         Me.DataGridView1.ReadOnly = False
 
        'Speichernbutton aktivieren
        Me.SpeichernButton.Enabled = True
 
        'neue Zeile einfügen
        Me.Tab1BindingSource.AddNew()
 
        Me.TextBox1.Focus()
 
        'Positionsanzeige
        Pos()
        'Postionsanzeige Statusbar
        TSSLPos()
    End Sub

 Private Sub Tab1BindingSource_PositionChanged(ByVal sender As System.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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
    Handles Button2.Click
 
       'Bildformate zuweisen
Me.OpenFileDialog1.Filter = "Bilddateien (" & _
  "*.JPG;*.GIF;*.BMP;*.JPEG;*.PNG)|*.JPG;*.GIF;*.BMP;*.JPEG;*.PNG"
 
        'Wir beginnen immer im InitialDirectory
        Me.OpenFileDialog1.RestoreDirectory = True
 
        Try
            If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK _
              Then ' <--- Es wurde eine Bilddatei ausgewählt
                '
                'Die ausgewählte Datei wird in der Picturebox angezeigt
                Me.PictureBox1.Image = System.Drawing.Image.FromFile( _
                  Me.OpenFileDialog1.FileName)
                '
                'Bild wird der PictureBoxgröße automatisch angepasst
                Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                '
            End If
        Catch ex As Exception
            'Hier landen wir nur, wenn was übersehen wurde
          MessageBox.Show("Error: " & ex.Message.ToString, "Info!", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
        End Try
    End Sub

VB@rchiv its the Best