Private Sub CustomersBindingSource_PositionChanged(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles _
      CustomersBindingSource.PositionChanged
        Debug.WriteLine("PositionChanged " & CType( _
        Me.CustomersBindingSource.Current, Data.DataRowView)( _
        "CompanyName").ToString())
    End Sub

 
Dim bmp As New BitMap(pfadZurDateiAusDBFeld)
PictureBox1.Image = bmp

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist