Private Sub bs_PositionChanged(sender As Object, _
        e As System.EventArgs) Handles bs.PositionChanged
 
        Dim row As DataRow = CType(bs(bs.Position), DataRowView).Row
 
        Dim picpath As String = _
           IO.Path.ChangeExtension(row("Pic").ToString, "wmf")
 
        If TypeOf pbox.Image Is Bitmap Then
            'Freigabe der Ressourcen einer bereits erstellten Bitmap
            pbox.Image.Dispose()
            pbox.Image = Nothing
        End If
 
        If IO.File.Exists(picpath) Then
            'Falls eine zugehörige Bilddatei vorhanden ist ....
            pbox.Image = New Bitmap(picpath)
        End If
 
    End Sub