Dim con As OleDbConnection = Nothing
 
        Try
            con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & sMDBFile)
            con.Open()
            Dim cdo As New OleDbCommand("SELECT * FROM tbl_Genre RIGHT JOIN (" & _
              "tbl_ArtistAlbum INNER JOIN tbl_Mp3 ON tbl_ArtistAlbum.ArtistNr =" & _
              "tbl_Mp3.ArtistNr) ON tbl_Genre.GenreNr = tbl_Mp3.Genre WHERE" & _
              "[tbl_ArtistAlbum.ArtistName]=?", con)
            cdo.Parameters.AddWithValue("ArtistName", "ab%")
            Me.ListView1.Items.Clear()
            Dim sdr As OleDbDataReader = cdo.ExecuteReader
 
            Do While sdr.Read
                With Me.ListView1.Items.Add(sdr("ArtistName"))
                    If sdr("AlbumName") = "" Then
                        .SubItems.Add("")
                    Else
                        .SubItems.Add(sdr("AlbumName"))
                    End If
                    .SubItems.Add(sdr("Titel"))
                    If Not DBNull.Value.Equals(sdr("TrackNr")) Then
                        .SubItems.Add(sdr("TrackNr"))
                    Else
                        .SubItems.Add("")
                    End If
                    .SubItems.Add("")
                    .SubItems.Add(sdr("Pfad"))
                    .SubItems.Add(sdr("CDNr"))
                    .SubItems.Add("")
                End With
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If con.State <> ConnectionState.Closed Then con.Close()
        End Try
        con.Dispose()