Probleme de Listview en VB.NET

Bonjour,
Je vous expose mon probleme,
Je veux créer une gestion d'agence de voyage en VB.NET (j'utilise Visual Basic 2005).
https://i27.servimg.com/u/f27/11/81/45/98/forum11.jpg

J'aimerai que quand je clique sur un index (2) le Label en bas de la page (1) se mete à jour en fonction de sur quoi j'ai cliquez. Le texte doit s'afficher en fonction de ce que j'ai rentrer dans une base de donnée access.

Je suis obligé de vous demandez ici car le prof ne sait absolument pas comment faire ^^. Voila merci d'avance.

Voila le code que j'ai taper jusqu'a maintenant :

Imports System.Data
Imports System.Data.OleDb

Public Class Form2
Private MyConnexion As OleDb.OleDbConnection

Private Sub FormCategorie_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyConnexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" + _
"C:\Users\Noir\Desktop\APPDONNEE\voyages2004.mdb")
MyConnexion.Open()
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim Mycommand As OleDb.OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT CodeVoyage, Destination, Duree, Prix FROM tVoyages"
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
ListView1.Items.Clear()
Do While myReader.Read()
Dim ListView As New ListViewItem
ListView.Text = myReader.GetString(0)
ListView.SubItems.Add(myReader.GetString(1))
ListView.SubItems.Add(myReader.GetInt16(2))
ListView.SubItems.Add(myReader.GetValue(3))

ListView1.Items.Add(ListView)
Loop
myReader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Try
Dim Mycommand As OleDb.OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT Description FROM tVoyages WHERE "
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
Label1.Text = ""
Label1.Text = myReader.GetString(0)
Loop
myReader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

PS : Désolé pour la longeur.