Private Sub lvwBand_Click()
 
    ' aktuelle Mausposition
    GetCursorPos P
    ScreenToClient lvwBand.hwnd, P
 
    ' Eintrag ermitteln
    Set oItem = lvwBand.HitTest(P.x * Screen.TwipsPerPixelX, P.y * _
      Screen.TwipsPerPixelY)
    oItemsub = oItem.ListSubItems(1).Text
    oItemsub2 = oItem.ListSubItems(2).Text
 
    'Datenbank öffnen
    dbFile = App.Path + "\db_musikcds.mdb"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
    If Not oItem Is Nothing Then
        Set Tabelle = Db.OpenRecordset("tbl_bands")
            Tabelle.Index = "band_name"
            SQL = "select * from tbl_bands, tbl_albums where tbl_bands.band_id" & _
              "= tbl_albums.band_id and tbl_bands.band_name like '" & oItemsub _
              & "' and tbl_albums.album_title = '" & oItemsub2 & "'"
            Set rs = Db.OpenRecordset(SQL)
            txtBand.Text = rs("band_name")
            txtAlbum.Text = rs("album_title")
            txtGenre.Text = rs("album_genre")
            txtTracks.Text = rs("num_tracks")
            txtCDID.Text = rs("cd_id")
 
    End If
    'Datenbank schließen
    Db.Close
    Set Tabelle = Nothing
    Set Db = Nothing
 
End Sub