Code Snippetippet
Private Sub ListBox1_SelectedIndexChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
PhotoAlbum.ImageLocation = PhotoAlbumPath & "\" & ListBox1.SelectedValue & "\album.jpg"
PhotoAlbumTitel.Text = CType(AlbumBindingSource.Current, DataRowView).Item("Titel")
PhotoAlbumEdited.Text = CType(AlbumBindingSource.Current, DataRowView).Item("Edited")
PhotoAlbumPhotos.Text = CType(AlbumBindingSource.Current, DataRowView).Item("Photos") & "st"
End Sub